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INTRODUCTION 

P-STAT  IS  A  SYSTEM  OF  PROGRAMS  THAT  DOES  STATISTICAL  OPERATIONS 
ON  FILES  OF  DATA.  AMONG  ITS  FEATURES  ARP . 

A  SYNTAX  ORIENTED  CONTROL  LANGUAGE,  WITH  THE  ABILITY  TO 

SFLFCT  PARTS  OF  FILES  WHILF  THEY  ARE  IN  USE.  FOP  EXAMPLE... 

IN  =  X  (  R  21-40,  77-100  ) 

SAYS  THAT  THE  INPUT  TO  SOME  P-STAT  OPERATION  IS  ROWS  21 
THROUGH  40  AND  77  THROUGH  100  OF  A  FILE  NAMED  »X'. 

IN  =  Y(  SETX  TOTAL  TO  SUM  (  1-15  )) 

SAYS... SET  AN  EXTRA  VARIABLE,  NAMED  ‘TOTAL',  TO  THE  SUM  OF  THE 
FIRST  15  VARIABLES.  THIS  WOULD  BE  DONE  FOR  *ACH  ROW  OF  FILE  Y. 

A  FILE  HANDLING  CAPABILITY  WITHIN  THE  S Y STEM  -  ANY  FILE  GENERATED 
BY  A  P-STAT  OPERATION  CAN  BE  USED  (  WHENEVER  PRACTICAL  )  BY 
ANY  SUBSEQUENT  P-STAT  OPERATION,  DUPING  TRF  SAME  PUN  OR 
DURING  A  LATER  RUN.  THF  USER  REFERS  TO  FILES  BY  THEIR  NAMES, 
AND  USUALLY  HAS  NO  CONCERN  FOP  THEIR  LOCATION  OP  FORM. 

MACROS  -  THF  ABILITY  TO  DFFTN*,  AS  AN  OPERATION,  AN  OFTEN  USFD 
SEQUENCE  OF  P-STAT  CONTROL  STATEMENTS .  LATER  USE  OF  THE 
NAME  OF  THE  MACRO,  WITH  APPROPRIATE  FILE  NAMES  AS  ARGUMENTS, 
INVOKES  THF  ENTIPF  SEQUENCE. 

MACHINE  INDEPENDENCE  -  THIS  SYSTEM,  WITH  A  FEW  EXCEPTIONS,  IS 

WRITTEN  IN  VERY  SIMPLE  FORTRAN  IV.  THF  SFCTICN  'ORGANIZATION 
OF  P-STAT  DISTRIBUTION  TAPES'  DISCUSSES  THE  EXCEPTIONS. 

ERROR  RECOVERY  -  WHEN  THF  USFR  COES  SOMETHING  WPONG,  THE  P-STAT 
SYSTEM  (  ASSUMING  THE  ERROR  IS  SOMETHING  IT  UNCOViPS  )  WILL 
REPORT  THE  PPOBLEM ,  CLEAN  UP  ITS  BUFFERS  AND  SO  FORTH,  AND 
ATTEMPT  TO  CONTINUE  WITH  THF  NEXT  P-STAT  OPERATION  UNTIL  TOO 
MANY  CONSECUTIVE  ERRORS  HAVE  OCCURRED. 

A  GENERAL  DATA  INPUT  PROGRAM  -  THIS  OPERATION  (  CALLED  'DATA'  ) 
READS  INPUT  CARDS  AND  CREATES  A.  P-STAT  FILF.  IT  CHECKS  THAT 
THE  CARDS  WITHIN  A  CASE  ARE  IN  OPDFP,  AND  THAT  NDMFRIC  FIELDS, 
TO  BF  NEAD  AS  NUMBERS,  APE  REALLY  NUMBERS.  IT  KF*PS  CONTPOL 
WHEN  SUCH  EPPORS  OCCUR.  A  SUMMARY  OF  THP  INPUT  CA«DS  IS 
PRINTED. 

SELF-DOCUMENTATION  -  THIS  MANUAL  IS  PUNCHED  ON  CARDS.  A  P-STAT 
OPERATION  RETRIEVES  THE  INFORMATION  AND  PRINTS  IT,  NUMBERING 
▼HP  PAGFS  AND  CREATING  A  TAEL*  OF  CONTENTS.  A  SHORT  PRIMER 
IS  ALSO  AVAILABLE.  MANY  USERS  WILL  FIND  IT  HELPFUL  TO  READ 
THE  PRIMER  BEFORE  TRYING  TO  "FAD  ▼HIS  ENTIRE  MANUAL. 

OPEN-PNDEDNESS  -  A  USrR  0*  A  STATISTICAL  SYSTEM  FREQUENTLY  NEPDS  TO 
ADD  A  NEW  PPQG  FA "  TO  THE  SYSTEM,  PTHAPS  TO  BE  USED  ONLY  ONCE 
OP  TWICE.  A  CATALOGED  PROCEDURE,  'FSTATC2U»,  PFPMITS  (  ON 
PRINCETON'S  760/91  )  A  USTP  TO  COMPIL*  A  PROGRAM,  CONSTRUCT 
HIS  OWN  P-STAT  OVERLAY  AN!  EXFr DTE  I*  {  T.E.,  DO  A  P-S^AT  RUN 
WHICH  INCLUDES  HIS  PFOGPAM  ).  ANY  SUCH  OPFPATTON  WRTt?»N  AT 
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ONE  COMPUTING  INSTALLATION  SHOULD  BE  EASY  TO  ADD  TO  A  P-STAT 
SYSTEM  AT  ANOTHFP  INSTALLATION.  SEE  THE  SECTION  ’ADDING 
USER-WRITTEN  TEMPORARY  LINKS  TO  THE  SYSTEM*. 

A  ST*o  TOWARDS  TN^EP-SYSTEM  COMPATIBILITY  -  A  P-STAT  OPERATION, 

•OSIRIS. P’,  ALLOWS  (  ON  A  360  )  A  PILE  GENERATED  BY  THE  UNIVERSITY 
OP  MICHIGAN  OSIRIS  SYSTEM  TC  BE  CONVERTED  TO  A  P-STAT  PILE  WITHIN 
A  P-STAT  RUN. 


***«**» ************ ************** ******* 
*  * 

*  P-STAT  DISTRIBUTION  POLICY  * 

*  * 

********  ******************************** 


INEOF RATION  ABOUT  THE  CURRENT  P-STAT  DISTRIBUTION  POLICY  CAN  BE 
R EOUESTED  FROM . 

ROALO  BUHLER 

PRItCCETON  UNIVERSITY  COMPUTER  CENTER 

87  PROSPECT  STREET 

PRINCETON,  NEW  JERSEY  08540 

TELEPHONE  NUMBER  IS...  609-U 52-6 042  OR  609-452-6000 


**********  DISCLAIMER  ********** 

ALTHOUGH  TH ES F  PROGRAMS  HAVE  FF^N  T f STFD,  NO  WARRANTY  OF 
ANY  KIND  IS  MADE  BY  THE  AUTHOF,  RY  ANY  SPONSORING 
AGENCIES,  OR  RY  PRINCETON  MNIVFPSITY,  AS  TO  THE  ACCURACY 
AND  FUNCTIONING  OF  TH  SS  F  RP  CORA  MS  AND  THF  RELATED  DOCUMENTS. 
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2.  CHANGES  WITHIN  RELEASES  OF  VERSION  *2. 

VERSION  52.5  IS  AN  OVERLAY  REQUIRING  A  REGION  SI7.*  OF  250K  BYTES  ON 
A  260.  A  LARGF  VERSION  OF  PSTAT52  FOR  THE  360  (  USING  60CK  BYTES  )  IS 
DESCRIBED  IN  THE  SECTION  ‘A  LARGER  360  VERSION*. 

VERSION  52.5  HAS  ABOUT  285  DECK S  (  I.F.,  SUBROUTINES  )  TOTALLING  ABOUT 
23,000  FORTRAN  SOURCE  CARDS.  ABOUT  7,U0C  OF  THESE  APE  CONSENTS.  THERE  APF 
ABOUT  570  CALLS  TO  ERROR  ROUTINES.  EACH  OF  THFSE  PRINTS  A  DIAGNOSTIC 
MESSAGE. 


THE  LINKS  IN  P-STAT  ARE  ALL  WRITTEN  IN  SINGLE  FFECISTON.  THERE 
IS,  OE  COURSE,  A  TRADE-OFF  OF  ACCURACY  VERSUS  SPEFD,  ST2E,  AND 
BETWEEN-COMPUTED  COMPATIBILITY.  SO  PAR,  THE  ACCUFACY  LIMITATIONS  OF 
SINGLE  PRECISION  HAVF  NOT  BEEN  A  SERIOUS  PROBLEM.  PLACING  SOME  OP 
THE  PROGRAMS  IN  DOUBLE  PRECISION,  OR  HAVING  ALTERNATE  VFRSIONS  IN 
DOUBLE  PRECISION,  IS  BEING  CONSIDERED.  SEVFRAL  PROGRAMS,  INCLUDING 
* INTCDS •  AND  'DISCRIM*,  SCALE  THF  DATA  INTERNALLY  ?o  LESSEN  THF  POSSIBILITY 
OE  ACCURACY  LOSS  DUE  TO  VARIABLES  WITH  LAPGF  MEANS  AND  SMALL  VARIANCES. 

THE  FOLLOWING  IS  A  BRIEF  SUMMARY  OF  THE  CHANGES  INCORPORATID  INTO  The 
HOST  RECENT  RELEASES. 
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VERSION  S2.3  (J PRIL, 7C)  HAS  THESE  CHANGES... 

CONCATENATION  OF  FTLFS.  'IN=A+B*  HILL  PF  TREATED  AS  ONE  LINKED 
FILE  • 


MUDMFRGE,  MULTIPLE  UP-COWN  MERGE.  THIS  IS  SOMEWHAT  OBSOLETE 
ALREADY  BECAUSE  THE  ABOVE  CONCATENATION,  WITH  NO. OP  OP  SCAN,  DOES 
VIRTUALLY  tHe  SAME  THING. 

FIVE  AEDITION AL  FUNCTIONS  IN  »SET»  OR  »SETX»  STATEMENTS . 

LOGIO,  w*P,  SIN,  COS,  ATAN. 

TNTCDS ,  IN^MDS  AND  INTMDA  NOH  ATTEMPT  nO  MODIFY  THE  DATA 
INTERNALLY  SO  THAT  CROSSPRODUCT  CALCULATIONS  ARE  PERFORMED  ON 
SCORES  WHOSE  (  INTERNAL  )  MEANS  ARE  CLOSER  TO  ZERO. 

A  CONTROL,  •EQHALCAT*,  HAS  BEEN  ADDED  TO  *  EREQ*  AND  'PREQ.C* 
ALLOHING  MORE  CONTROL  OVER  CATEGORY  SIZES. 

A  BUG  IN  • MULTR'  CAUSING  OCCASIONAL  (AND,  FORTUNATELY,  IRRELEVANT) 
O.S.  ERROR  MESSAGES  HAS  BEEN  FIXED. 

THE  *  DAT A '  PROGRAM  WILL  DO  THE  BEST  IT  CAN  WITH  ROW  LABELS  POUND  ON 
INPUT  CARDS.  AN  INVALID  LABEL  USED  TO  BE  DISASTEROUS.  ALSO,  THE 
* D ATA '  PROGRAM  CAN  NOW  RFC ODE  X (-)  OR  Y(+)  PUNCHES  INTO,  FOR 
EXAMPLE,  11  AND  12. 

INFORMATION  REGARDING  USE  0*  800  BPI  TAPES  WHEN  THP  NORM  IS  1600  TS 
AT  THE  EN D  OF  tee  .7CL  SECTION. 

A  PORTPAN  H  VISION  IS  NOW  STANDARD. 

THE  OVERALL  SIZE  0?  "f,HF  OVERLAY  IS  SMALLER,  DUE  TO  SCHF  INTERNAL 
CHANGES  AND  ALSO  TO  A  MOPE  INVOLVED  OVERLAY  STRUCTURE. 

TH?  ABILI^T,  IN  A  *»0R,  SETT*  FHPASF  TO  GENERATE  NEW  LABELS  BASED 
IN  PART  ON  THF  OLD  LABELS.  ALSO,  THE  USE  OF  • SETX  ,X+10.«  OP 
•S^tx  ,CV.»  TO  DEFINE  THE  ACTUAL  POSITION  0*  A  NPW  VARIABLE  HAS 
BF^N  REPLACED  BY  AN  FASTEN  CONVENT TON. 
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VERSION  52.4  (  NOVEMBER,  70  )  HAS  THESE  CHANGES... 

THE  OVERLAY  SIZE  IS  DOWN  TO  225k,  THEREFORE  A  REGION  OF  250K  SHOULD  B* 
LARGE  ENOUGH  TO  RUN  MOST  P-STAT  JOBS. 

CROSSTAB  HAS  BEEN  REVISED. 

•IN  =  W  (  B  1-10  )*  MEANS  SFLFCT  BOTH  ROWS  1- 1 C  AND  COLUMNS  1-10  OF 

PILE  *W'. 

SEVERAL  BUGS  HAS  BEEN  FIXED.  LARGE  •DO*  LOOPS,  MULTIPLE  PASSES  OF 
CONCATENATED  PILES  (  A*B+C,  FOR  EXAMPLE  ),  AND  (*)  USAGE  INVOLVING  *R« 
SELECTION  ALL  WORK  BETTER. 

A  CARD  IMAGE  FILE,  USFD  AS  INPUT  BY  • PAT  A*  OP  • S  DATA  * ,  NO  LONGER  MUST 
HAVE  A  *  *END'  CARD  TO  DEFINE  ITS  END.  P-STAT  NOW  PROVIDES  A  ’♦END1  CARD 
WHEN  THE  END  OF  FILE  IS  HIT. 

A  NEW  OPERATION,  'XHEAD*  (  FOR  EXTRA  HEADING  ),  ALLOWS  ONE  TO  MODIFY 
PART  OF  THE  PREVIOUS  HEADING.  THIS  FFATURE  CAN  BE  USFFUL  IN  MACROS. 

•MANUAL'  NOW  SUPPORTS  THE  OPTIONAL  FLAGGING,  WHEN  THF  P-STAT  MANUAL  IS 
PRINTED,  OP  RECENTLY  INSERTED  FEATURES. 

•EDIT'  WILL  NOW  {  OPTIONALLY  )  PRINT  THE  VARIABLE  (  COLUMN  )  LAEFLS  OF 
EACH  FILE  WHILE  IT  FDITS  A  P-STAT  PERMANENT  DATA  TAPE. 

•EDIT',  'SAVE',  AND  'FIND*  RUN  CONSIDERABLY  FASTER. 

A  NFW  OPERATION,  'COPY.PDT',  COPIES  A  P-STAT  PERMANENT  DATA  TAPE. 

THIS  IS  MUCH  FASTER  THAN  USING...  • FIND, TAPF=61 •  AND  • SAVE,T APE=62* . 

' MERGE '  NOW  HAS  A  'MIDDLE'  OPTION  SO  THAT  A  LEFT/MIDDLE/RIGHT  MERGE 
CAN  B*  DONE,  ACCOMPLISHING  THE  SIDEWAYS  MERGING  OF  3  FILES  IN  ONE  STEP. 

IN  A  MACRO  DEFINITION,  IF  A  FILE  NAME  OP  A  LABEL  IS  ENCLOSED  BY  ( () ) , 

THE  PRENS  ARE  DELETED  WHEN  THF  MACRO  IS  EXPANDED,  LEAVING  THE  NAME 
OP  LABFL  INTACT.  THIS  PERMITS  THE  FILE  NAME  OR  LABEL  TO  BE,  IN  EFFECT, 

A  CONSTANT  IN  THE  MACRO. 

THE  CONVENTIONS  POR  ADDING  TEMPORARY  LINKS  TO  THE  SYSTEM  HAVE  BFIN 
CHANGED.  A  TYPICAL  LINK  SHOULD  BE  CALLED  'USER1'  RATHER  THAN  'LNK101*. 

•CLEANCOR'  IS  A  NEW  OPERATION  WHICH  CLEANS  A  CORRELATION  MATRIX. 
VARIABLES  ARE  DELETED  WHOSE  LARGEST  ABSOLUTE  CORFELATION  WITH  ANY 
OTHER  VARIABLE  IS  LESS  THAN  OP  ECUAt  TO  A  USER  SUPPLIED  VALUE. 

•F.COEF'  HAS  SEVERAL  OPTIONS  TO  USE  WHEN  THE  STAND*PPI7ED  INPUT  FILE 
HAS  MISSING  DATA. 

•SCAN',  WHEN  THF  IMPUT  PILE  HAS  MISSING  DATA,  CAN  SET  THF  OUTPUT 
VM,U*  IN  A  '  SDATA '  FILE  TO  EI^HFP  0.  OR  MISSING. 
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VERSION  52.5  (  J AN.,  71  )  HAS  THESE  CHANGES... 

A  1  SET •  PHRASF  CAN  NOW  SFT  A  VARIABLE  TO  THE  STANDARD  DEVIATION 

OF  A  LIST.  FOR  FXAMPLF . 

SFT  VAR1C  TO  SDRV  (  VA°1,  V AF3  -  VAR8  ) 

• DI3CRTM*  „  A  MOL^IPLE  GFOTTP  DISCRIMINANT  ANALYSIS  PROGRAM, 

HAS  BEEN  ADDED. 
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PLANS  FOR  VERSION  53. 

VERSION  53  IS  CURRENTLY  UNDER  DEVELOPMENT  .  IT  HILL  HAVE  SORE 
(  PERHAPS  MOST  )  OF  THE  FOLLOWING  FEATURES.... 

16  CHARACTER  ROW  AND  COLUMN  LABELS  (  P-STAT  NOW  ALLOWS  8  ). 

AN  OPTIONAL  SECONDARY  ROW  LABEL,  OF  VARIABLE  SIZF,  UP  TO  100  CHARACTERS. 

THREE  SIZES  OF  OVFRLAY,  190K  ALLOWING  150  VARIABLES,  250K  ALLOWING 
THE  CURRENT  50  VARIABLES,  AND  70CK  ALLOWING  1500  VARIABLES. 

PROVISION  FOR  SCORE  LABELS,  WHICH  WOULD  ALLOW  BETTER  CROSSTAB  PROGRAMS. 

INCLUSION  OF  A  NUMBER  OF  ADDITIONAL  STATISTICAL  OPERATIONS,  POSSIBLY 
A  MANOVA  PROGRAM,  CANONICAL  CORRELATION,  STEPWISE  REGRESSION, 

PATH  ANALYSIS,  SOME  ADDITIONAL  POTATION  PROGRAMS  FOP  FACTOR  ANALYSIS, 
PTC. 

MORE  INTERFACING  WITH  OTHER  SOCIAL  SCIENCE  STATISTICAL  SYSTEMS. 

THE  USE  OF  LOWER  CASE  (  AS  WELL  AS  UPPER  )  WHEN  PRINTING  THIS  MANUAL. 
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3.  THE  P-STA?  CONTROL  LANGUAGE 


CONSIDER  THIS  ""EPICAL  P-STAT  STATEMENT... 

INTCDS ,  IN  *  X,  COE  =  X COR  $ 

IT  HAS  AN  OPERATION  NAME  (INTCDS)  AND  TWO  PHRASES.  THE 
OP”?  AE’ION  NAME  IMPLIES...  I  NT?  RCORR  Et  AT  E,  COMPLETE  DATA,  SYMMETRIC. 
THW  PHRASES  SUPPLY  I NFOR  NA T’l CN  TO  THE  INTCDS  OPERATION.  THE 
FIRST  (  IN  =  X  )  SAYS  THAT  THE  INPUT  IS  A  FILE  NA  MWD  X,  THE 
SECOND  (COR=XCOR)  SAYS  THAT  A  FILE  OF  CORRELATIONS  SHOULD 
BE  COMPUTED  AND  NAMFD  TCOR. 

NAMES  AND  FILES  AR’3'  DISCUSSED  B  FLOW . 


NAMES  AND  LABELS 

A  NAME  MAY  HA7F  NO  MOPE  THAN  8  CHARACTERS. 

THE  FIRST  CHARACTER  MUST  BE  A  LETTER. 

THF  R'S?  CAN  BE  LETTERS,  NUMBERS,  AND  DECIMAL  POINTS. 

BLANKS  WITHIN  A  NAME  ARF  NOT  ALLOWED. 

THESE  ARE  EXAMPLES  OF  LEGAL  NAMES... 

A 

T2  1 r 

X.  . .  3 

ARIZONA 
J.  1 

THESF  ARP  SOME  ILLEGAL  NAME’S... 

NFW JERSEY 

2A 

A/1 

NEW  YORK 

THESF  RULES  HOLD  'OR  ALL  NAMFS  CR  LABELS  IN  THF  P-STAT  SYSTEM. 
THIS  INC! DDES  FILE  NAM'S,  LABELS  FOR  THE  ROWS  AND  COLUMNS  OF  A  FILE, 
NAMES  Of  D-STAT  OOF***.  "TOVS,  AND  VAN'S  OF  IDENTIFIERS  *OF  OPTIONS 
WITHIN  OPERATIONS  (SFE  M'LOW) . 

WH'N  A  o-«TAm  'II  F  IS  GENEf  ATFD  'POM  OTHER  P-STAT  FIT  ES  BY  SOME 
P-STA  "r  OO'RATTON,  ^t  'c  GTV'V  ROW  >  NO  CCLUMN  LABELS  WHICH  ARE  USUALLY 
BASED  ON  THE  LA.R'L'  '"UNO  JV  ""H r  IN^U""  FILES  USED  TV  THE  OPERATION. 
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FILES 

A  PILE  IS  A  RECTANGULAR  COLLECTION  OF  NUMERIC  DATA,  CAPRI  ED 
IN  SINGLE  PRECISION. 

IT  HAS  ROWS  AND  COLUMNS. 

IN  SOCIAL  SCIENCE  APPLICATIONS,  THE  ROWS  ARE  FREQUENTLY  PEOPLE, 

AND  THE  COLUMNS  ARE  USUALLY  VARIABLES. 

EACH  ROW  HAS  A  LABEL,  AND  EACH  COLUMN  HAS  A  LABEL  (  FOR 
EXAMPLE,  'AGE*  ). 

HISSING  DATA  IS  PERMITTED  IN  A  FILE.  MANY  OF  THE  P-STAT 

OPERATIONS  WERE  DESIGNED  TO  HANDLE  FILES  WITH  SOME  MISSING 
DATA. 

IN  GENERAL,  PILES  ARE  REFERRED  TO  BY  NAME.  USERS  DO  NOT  NEED  TO 
KNOW  WHERE  A  PILE  IS. 

THE  MAXIMUM  NUMBER  OF  COLUMNS  IN  A  FILE  IN  VERSION  52  IS  450. 

THE  LIMITING  FACTOR  IN  THE  MAXIMUM  SIZE  CP  A  PILE  IS  THE  CAPACITY 
OP  A  SINGLE  2400  FOOT  TAPE  (  APPROXIMATELY  13,000  ROWS  BY  300  COLUMNS, 
40,000  ROWS  BY  100  OLUMNS,  80,000  ROWS  BY  50  COLUMNS,  ETC.  ).  THIS 
ASSUMES  800  8PI  AND  2000  BYTE  RECORDS  ON  THE  TAPE. 

P-STAT  DOES  NOT  DO  ANYTHING  PARTICULARLY  TRICKY  WITH  TAPE  USAGE. 

IP  AN  OPERATING  SYSTEM  PERMITS  MULTI-PEEL  PILES,  A  P-STAT  *TLF  COULD  BE 
LARGER  THAN  THE  NUMBERS  CITED  ABOVE.  HOWEVER,  THERE  HAS  BEEN  LITTLF 
IE  ANY  MULTI-PEEL  P-STAT  EXPERIENCE  AT  PRINCETON. 

IN  THIS  MANUAL ,  THE  WORD  ' MATRIX'  IS  OCCASIONALLY  USED  INSTEAD  OF 
THE  WORD  *EIL**.  'FILE*  IS  GENERAL,  ’MATRIX*  TENDS  TO  BE  A  SQUARISH 
EILP. 


THE  CARDS  NECESSARY  TO  PUN  A  P-STAT  JOB  CONSIST  OF... 

1.  JOB  DEFINITION  CARDS  TO  THE  SUPERVISORY  OPERATING  SYSTEM. 

2.  P-STAT  CONTROL  STATEMENTS.  EACH  DOES  A  P-STAT  OPERATION. 
SOME  OF  THESE  MUST  BF  FOLLOWFD  BY... 

3.  DATA  CARDS  FOP  THE  P-STAT  OPERATION,  WHEN  NEEDrD.  THIS 
CAN  BE  NUMERIC  DATA,  OP  CAN  CONTAIN  FURTHER  INFORMATION 
NEEDED  BY  THE  SPECIFIC  F-STA.T  OPERATION. 
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THF  FOLLOWING  IS  A  STAPLE  PRINCFTON  360  P-STAT  RUN.  IT  READS  IN 
SOME  DATA,  PRINTS  IT,  COMPOTES  AN  I NTFRCCPRFLATION  MATRIX,  AND  PRINTS 
IT  TWICE  (TO  7  DECIMAL  PLACES  AND  TflFN  TO  4  CECIMAL  PLACES). 

//  JOB  P^C. 

//  EXEC  ESTATE  2 
//PSTAT.SYSTN  DD  * 

HEAD  =  (SAM °LP  PSTAT  RUN)  $ 

SDATA  =  A,  NV  =  ?,  PORMAT  =  (  5P1.0  )  S 
(HEPF  APE  DATA  CARDS) 

♦  END 

PRINT  =  A  $ 

INTCPR,  IN  =  A,  COR  -  A  INTER  $ 

PRINT  --  ?  /  A  INTER  /  4  /  A  INTER  $ 

END  $ 

/* 

CONSinFR  THE  S^ATF^NT  WHICH  STARTS  WITH  INTCDS... 

1 INTCDS*  IS  THE  OPpR  ATTON  NAME. 

•IN*  IS  AN  IDENTIFIER  LINKING  THE  PROGRAM  TO  THE  NAME  OF  THE 

INPUT  FILE. 

'A*  IS  THF  NAME  o?  TH»  FILE  TO  BE  USED  AS  INPUT. 

•COR*  IS  AN  IDENTIFIER  WHOSE  PRESENCE  ON  THE  CARD  INDICATES, 

TO  THIS  OPERATION,  THAT  COFPFLATIONS  ARE  WANTED. 

• AT  NTPP '  WTLL  3F  THE  NAME  GIVFN  TO  THE  FILE  OP 
INTER COP RELATIONS. 

•$•  ENDS  THF  P-STAT  CONTROl  STATEMENT. 

NOW,  CONSIDER  "HF  ENTIRE  RUN... 

THP  ETRST  THRPF  CARDS,  //  JOF  AND  THF  TWO  FOLLOWING,  ARE  360  JOB 
CONTROL  CApDS  pOR  THE  PPINC^ON  360  OPERATING  SYSTEM.  P-STAT 
CONTROl  STA TEM ENTS  AND  P*t?  CAPDS  OCCUR  TMMFDT ATPIY  AFTFR  THE 
//PSTAT.SYSTN  DD  *  CARD. 

* HPAD»  TS  A  P-S*AT  OPERATION  WHICH  PROVIDES  A  HEADING  WHICH  WILL 
APPEAR  CN  SUBSEQUENT  PRINTING. 

•SPAT**  TS  AN  OPERATION  WHTCH  F  F ADS  IN  CAPDS,  CREATING  A  P-STAT 

FTL"  NAMED  A  (  IN  THIS  EXAMPI.P  ),  WITH  F  VARIABLES  {  COLUMNS  ) 
IN  IT •  IT  I p  pOLI  OWF 0  PY  SCMP  NUMBER  OF  DATA  CAPDS,  RFAD 
USING  FORMAT  SR  1 .  o  .  REAPING  OF  CARDS  CONTINUES  UNTIL  A 
<"»®D  WITH  •  *  p  N  P  '  IN  COIUMNS  1-4  ts  FOUND. 

AT  '♦MTS  POINT,  FTLE  'M  PXTSTS  SCMPWHF?F  IN  THP  SYSTEM.  WE  COULD 
USF  IT  TMM=,DT  ATf^Y  *  S  jvprj^  to  pOMF  OTHpP  OPERATION,  OR  WF 
COULD  DO  cr**  ACTIVITY  NOT  ENVOI VING  PT  Lp  A,  FOP  FXAMPLE,  USING 
SDATA  AGAIN  to  tv  A  FI  I F  TO  FE  N A  MFD  P.  IN  EITHFF  EVFNT, 

PILP  A  IS  AV  *  IT  APT P  ?-?  ANY  Tjj<r  rnpiN?  »HP  REST  OF  THIS  RUN. 

i  nr? r v t  =  a*  TH*~  ptX.E. 
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'INTCDS*  IS  AN  OPERATION  THAT  DOFS  A  SYMMETRIC  CORRELATION  USING 
COMPLETE  DAT?  (  NO  MISSING  VALUES  ).  THE  INPUT  MILE  IS  A, 

AND  AN  OUTPUT  »ILE  OP  CORRELATIONS  IS  CREATED  (  NAMED  AINTER  ). 
CORRELATIONS  HERE  DONE  (  RATHER  THAN,  FOR  EXAMPLE, 

COVARIANCES  )  BECAUSE  THE  IDENTIFIER  COR  SPECIFICALLY 
INDICATED  TO  INTCDS  THAT  CORRELATIONS  HERE  WANTED.  IN  OTHER 
WORDS,  THE  PROGRAM  ACTIVATED  BECAUSE  OE  THE  USE  OF  ‘INTCDS* 

WAS  WRITTEN  TO  TEST  FOR  ‘COR  =‘  SOMEWHERE  IN  THE  P-STAT 
CONTROL  STATEMENT.  IF  THERE,  IT  COMPUTES  CORRELATIONS. 

' PRINT*  NOW  PRINTS  THE  CORRELATIONS,  FIRST  TO  2  PLACES,  THEN 
TO  4. 

•END*  ENDS  THE  RUN  CLEANLY. 


GENERALIZATIONS 

A  P-STAT  STATEMENT  ALWAYS  BEGINS  WITH  AN  OPERATION  NAME... 

(  HEAD,  SD.ATA ,  PRINT,  INTCDS,  PRINT,  END  ) 

AND  ALWAYS  ENDS  WITH  A  DOLLAR  SIGN. 

MOST  OPERATIONS  INVOLVE  MORE  THAN  JUST  AN  OPERATION  NAME. 

AN  OPERATION  NAME  CAN  BE  FOLLOWED  DIRECTLY  BY... 

COMMA  INTCDS, 

FQUAL  SIGN  HEAD  * 

DOLLAR  END  $ 

OBVIOUSLY,  I*  A  DOLLAR  IMMEDIATELY  FCLLOWS  THE  OPERATION  NAME, 
THAT  IS  ALL  THERE  IS  To  IT.  IE  LOT,  THERE  ARE  PHRASES. 

P.  PHRASE  STARTS  WITH  AN  IDENTIFIER.  IT  USUALLY  HAS  AN  EQUAL 
SIGN  AND  AN  ARGUMENT... 

TN  =  A  . 

SOME  OPERATIONS  NEED  A  NUMBER  Of  SUCH  PHRASES. 

THE  OPERATION  NAME  ITSEL?  CAN  SERVE  ?S  THE  IDENTIFIER 
OF  THE  FIRST  RHP  ASM. . , 

PRINT  =  A  , 

ARGUMENTS  FOLLOW  EQUAL  SIGNS.  THEY  CAN  H*... 

NAMES  IN  *  A 

NUMHFRS  NV  =  5 

LISTS  HEAD  *  (  HE1*?  IS  A  HEADING  ) 

(  NOTE  -  THE  ABOVt  ' NV=5*  COULD  ALSO  PE  PUNCHED  AS 
•NV  =  e;.«,  ’ NV=n . 5f 1  *  ,  OR  »NV  *  5*,  MTCt) 
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AN  IDENTIFIER  CAN  HAVF  MULTIPLE  ARGUMENTS... 

PPTNT  =  ?  /  ATNTEP  /  U  /  AINTEP 

ONLY  CERTAIN  OPERATIONS  ALLCW  POR  MUITIPLF  ARGUMFMTS.  THIS 
USAGE  WOULD  B®  ORGANIZED  INTERNALLY  (  BY  THE  SYSTFM  )  AS 
FOUR  SEPARATE  PHRASFS  THA*  HAPPEN  TO  HAVE  THE  SAME  IDENTIFIER. 

AN  IDENTIFIER  CAN  REFVP  TO  CONCATENATED  FILES... 

IN  *  A  ♦  B  ♦  C 

THIS  WOULD  CAUSE  THE  COLUMN  LAEFLS  C*  •  A  •  ,  THEN  THE  ROWS  OF 
»A»,  tHE  pnws  OP  ‘B*  AND  THE  ROWS  OF  •C1  TO  BE  TREATED  AS 
ONE  FILE  BY  THE  OPERATION.  THFY  MUST  HAVF  THE  SAME  NUMBER  OE 
COLUMNS.  THE  COLUMN  LABFLS  O?  • B*  AND  fC'  ARE  SKIPPED  OVER 
WITHOUT  COMPARING  AGAINST  THE  LABELS  OE  'A*.  A  FILE  CAN  BE 
REPEATED. . . 

IN  =  A  (  C  1-20  )  ♦  A  (  C  21-UO  ) 

FURTHER  COMMENTS  ABOUT  THE  IDENTIFIER  COP  IN  TH*  INTCDS  STEP... 
CO®  IS  AN  IDENTIFIER  SAYING,  IN  EFFECT,  THAT  CORRELATIONS 
ARE  WANTED.  TH E  OPFPATIOH  INTCDS  CAN  PROVIDE  MORE 
THAN  ONE  OUTPUT.  IN  FAC*,  IT  COULD  PROVIDE  ANY  OR  ALL 
OE  FIVE  DIFFERENT  OU* PUT  MATRICES  (  CROSS-PRODUCTS, 
COVARIANCES,  CORRELATIONS,  SLOPFS,  AND  INTERCEPTS  ). 

THE  USER  TELLS  THE  OPERATION  WHICH  OPTION  (S) 

HE  WANTS  BY  USING  THF  APPROPRIATE  IDFNTIPT®®  (S)  . 

IN  GENERAL,  AN  IDrN*IFIER  SPECIFIES  AN  OPTION.  IN  SOME 
OPEp ACTONS,  AN  IDENTIFIER  IS  USFD  WITHOUT  AN  ARGUMENT 
SIMPLY  *0  INDICATE  THAT  *HE  PROGRAM  SHOULD  DO  SOME  SPECIFIC 
THING.  USUALLY,  *HE  IDENTIFIER  LINKS  THE  OPTION  TO  SOME 
INFORM*  TION  THAT  THF  OPTION  WILI  NEED  (  A  NAME,  A  NUMBER, 

OP  A  LIST  ) . 

S  CM  f  TDFNTIFT  FRS  "UST  BF  PrOVIDfD.  FOR  EXAMPLE,  INTCDS  MUST 
HAV*  AN  INPUT  Eli?  (  IN  =  A  )  AND  THE  STEP  IS  POINTLESS 
WITHOU*  USING  AT  LFAST  CNF  OF  TH®  OUTPUT  OPTIONS. 

PU®  ASrS  WITHIN  A  CONTROL  ST  ATrM ENT  CAN  OCCUF  TN  ANY  ORDER . 

A  t-S^AT  CONTROL  STATEMENT  CAN  BF  PUNCHFD  ON  SEVERAL  CARDS. 

S  ®  V  E  ®  A  L  P-STA*  CONTROL  STAtfMFNTS  CAN  BE  PUNCHFD  ON  1  CARD. 

CONTROL  STAT^M®*?"'  LIMITS,  IN  VrPSION  ®? ,  ARE . 

1.  Rc  PHRASES  W  Im  BIN  A  STATFMEN"'. 

7 .  FULL  CA  f  ns  ->nn  p  STNGI. r  ®Ta7r.<p*|7>  ’’’HIS  IS  ACTUALLY  12C0 
CHARACTER?  ( 1 S X fl n ) ,  r®  s  GIVEN  CAPE  IN  A  P-Stat  STATEMENT 
HAS,  ®0R  *XA  **°LF,  PUNCHING  7HECUGH  COLUMN  S7,  TH A*  AND  THE 
ET  ® ST  BLANK  A®'®7  jpp  RETAINED.  THUS,  S8  PATH°P  THAN  RC 
CHA® ACTroS  rn'ir  ’rOWA,'’'S  r.Hr  12rC.  IN  OTHER  WORDS,  WHEN  *  N* 
BLANKS  END  A  C'®n,  • V - 1  *  OF  TH?"  ARE  IGNORED.  THIS  MAY  BE 
UFFPrjt  W Ur M  OS  MANY  VARIABLES  OF  A  ®TLE  BEING  DONE. 

pop  ®  X  A  N  PT  ® ,  V  C  *  ®  PS ,  ®ACH  PUNCHED  ONLY  IN  THE  ®TRS  ?  I*1 
CO!  U"NS  ,  W o u  n  R®  ACCENT  *  HIE. 
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CATALOGED  PROCEDURES  ON  PRINCETON'S  360 

CURRENTLY,  TWO  CATALOGED  PROCEDURES  ALLOW  USE  OF  THE  VERSION  5? 
SYSTEM  AT  PRINCETON.  THEY  ARE... 

PSTAT52  THIS  ACCESSES  THE  SY5TFM  DESCRIBED  IN  THIS  MANUAL. 

A  LARGE  VERSION,  DESCRIBED  IN  THE  SECTION  'A  LARGER 
360  VEP  SION  * ,  CAN  ALSO  BE  REFERENCED  BY  THIS 
PROCEDURE  BY  THE  USE  OF  AN  ADDITIONAL  PARAMETER . 

OSTATS2U  "’HIS  COMPILES  A  USER  LINK,  LINKEDITS  AN  OVERLAY 

INCLUDING  IT  (  IE  IT  COMPILES  ),  AND  EXECUTES  THE 
NEW  OVEPIAY.  IT  IS  DISCUSSED  IN  THE  S^CION  'ADDING 
USER-WRITTEN  TEMPORARY  LINKS  TO  THE  SYSTEM'. 

A  DECK  EOK  THE  SIMPLEST  PUN  WOULD  CONSIST  OR... 

//  JOB  ETC. 

//  EXEC  PSTAT52 
//PSTAT. SYSIN  DD  * 

(  P-STAT  CAPPS  ) 

/* 

A  SEPARATE  SECTION,  *JCL  FOR  REFERENCING  TAPES  ON  THE  360*  COVERS 
USE  OF  THESE  PROCEDURES  WHEN  P-STAT  DATA  TAPES  AR*  USED.  THESE  TAPES 
ARE  GENERATED  BY  OPERATIONS  'SAVE*  AND  'ASSIGN*. 

TWO  OTHER  CATALOGED  PPOCFDnRES  APE  USED  AT  PRINC^ON .  . .  . 

PSTAT52M  PRINTS  A  COPY  OF  THE  MANUAL. 

PSTAT52P  PRINTS  A  COPY  OF  THE  PRIMER. 
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4.  SELECTING  SPECIFIC  ROWS  AND/OP  COLUMNS  FRCM  A  FILE 

JV  GENERAL ,  ANY  PEFFRFNCF  TO  AN  EXISTING  FILE  NAME  CAN  BE 
QUALIFIED  BY  PA  EFN^HESES  AE'rwE  THE  FILE  NAME.  THE  CONTENTS  OF 
THE  PARENTHESES  CONTAIN  TEXT  THAT  SELECTS  OR  MODIFIES  THE  DATA 
IN  A  ,ILE  AS  IT  IS  ?*C  INTO  AN  OPERATION. 


THFRi’  APE  NOW  FIVE  ^YPES  OF  QUALIFICATION .. . 

1.  RON  SELECTION. 

2.  COLUMN  SELECTION  AND  RE-ORDERING. 

3.  BOTH  (  THE  SELECTION  APPLIES  BOTH  TO  ROWS  AND  TO  COLUMNS  ). 

4.  STAR  (  *  SAYS...  REAPPLY  THE  MOST  RFCENT  QUALIFICATION  USAGE 

TO  THF  CURRENT  FILE  )  . 

5.  FOR, TE, SET, SET*.  THFSF  MODIFY  DATA  AND  ALSO  GENERATE  NEW 

VAPTABLFS.  TFFY  APE  DESCRIBED  IN  A  LATFR  SECTION, 

•  DAT A  MODIFICATION  AND  GENERATION  USING  FOR /IF/SET/SETX'  . 


A.  ROW  SELECTION 

THIS  ^ELECTS  C^P^AIN  ROWS  OF  A  FILF.  THE  FIRST  NON-BLANK  CHARACTER 
W ITHTN  THF  P A FrNTHE SFS  MOST  PE  R.  FOR  EXAMPLE,  IN  =  A ( R  41-100). 

THE  EFFECTIVE  INPUT  TO  WHATEVER  OPERATION  IS  INVOLVED  IS  ROWS 
41  THROUGH  IOC  OF  B‘TLE  A. 

COVSTPER. .  .  . 

IN  =  A  (  P  JONES  -  ?ro  ) 

FOWS  rR OM  THE  ONE  LABELLER  JCNFS  THROUGH  ’’’HE  ONE  IN  POSITION 
2^  RUEVIV17  THr  ST  A'T'FMEN'r .  IN  G^NE^AL,  T  HE  OUTPUT  Ow  THE 

FIRST  EXECUTED  PA  T  EN^HFSTS  IS  ‘"HF  INPUT  TO  THE  NEXT  PARENTHESES, 

I*  ANY.  NOT E  "'’HAT  POSITIONS  AND  LABELS  CAN  RE  INTERMIXED.  IF 
FTLr  «  H A ^  NO®*  THAN  HOC  ROWS,  AND  YOU  WISH  ROWS  401  ON,  USE 

TN  -  »  (  p  4 r.  1  ♦  ) 

"O  r-w  f  VrP  Y  FTF^H  onw  IN  P,  USE  IV*B  (R  1  +  (10rO0)).  THE  (10000) 

IE  A  BINARY  "*SK,  OTPEC-pINO  THE  SY^TF*  TO  !JSF  THW  FIRST,  SKIP  THF 
Nt.rT  T'T.  mn  ~FT  f VFP Y  OTHEP  orw,  USE...  IN=B  (P  1*pn)  ) 

TO  G rT  "HE  *V"N  NUMRFrEP  ”OVS,  USE...  IN  =  B  (P  1  ♦  <01  >  ) 

I  N  =  «(?  M-*'',  7C  ,  R  i  -  1  r  ( 1  f )  ,  2r  1-21*  (f'C)  )  WILL  SELECT 
pnWG  7r,  0 1 ,  HR,  ns,  fi7,  R 9 ,  ?ci,  P'-'U,  7r'l,  210,  AND  213. 
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TrIE  GENERAL  PORE  IS... 

1.  (R 

2.  ONE  OR  MORF  EXPRESSIONS  (  WITH  COMMAS  B FT  WEEN 
THE  EXPRESSIONS  IF  MOPE  THAN  ONE  ) 

3.  ) 

AN  EXPRESSION  CAN  BE  CNF  OP  THE  FOLLOWING... 

A  POW  NUMBER 
A  ROW  LABEL 

A  RANGE,  SUCH  AS  7-30,  OP  JCNES-SMITH, 

OR  ?♦,  OP  JCNPS* 

A  MASKED  PANGF,  SOCR  AS  JCNFS-2 00 (1 0) 

POUR  POINTS  TO  NOTE . 

1.  POW  REFERENCE  (LABELS  OP  NUMBERS)  MOST  OCCUR  IN  THF 
PILF  IN  ASCENDING  OPDEP.  IN  =  A (P  21-40,  1-5)  IS  NOT 
ACOEPTFD  BY  THF  SYSTEM.  THIS  IS  DUE  TO  THE  SERIAL 
ACCESS  RESTRICTIONS  INVOLVED  IN  READING  ROWS 

OP  DATA  FROM  A  PILF,  SUCH  AS  A  TAPE. 

2.  A  ROW  CANNOT  BE  REPEATED.  'IN  =  A (  R  10,  ID  )*  WILL 
CAUSE  AN  ERROR  MESSAGE. 

3.  WHEN  THERE  ARE  SEVERAL  QUALIEICATIONS  APTFR  A  FILE 
NAME  (  INCLUDING  A  POW  QUALIFICATION  ),  THF  ROW 
QUALIFICATION  IS  ALWAYS  EXECUTED  FIP.ST,  EVEN  THOUGH  IT 
MAY  NOT  B*  THE  LEFTMOST  ONE.  IT  IS  WISE,  BUT  NOT 
OBLIGATORY,  FOR  THE  USER  mO  FUT  IT  FIRST. 

4.  THERE  CAN  BE  ONLY  1  ROW  QUALIFICATION  PHRASE 

FOR  ANY  GIVEN  FT  IF  REFERENCE.  IN=A  (R  1-3  )  (  P  4-6  ) 

WTLL  CAUSS  AN  FPPCF  MESSAGE  TO  OCCUR. 


B.  COLUMN  SELECTION 

THE  WORD  •COLUMN’  REFERS  TO  A  COLUMN  IN  A  P-S^AT  FILE,  AND  NOT 
TO  A  CO LUMP  OF  A  PUNCHED  CARD. 

THE  PTRST  (NON-BLANK)  CHARACTER  IN  COLUMN  SELFCTTON 
PARENTHESES  MUST  BE  C.  THE  PEST  IS  THE  SAME  AS  POW  SFLFCTIONS, 

PUT  WITHOUT  TH*  FOUR  FES  FRICTIONS .  RFEFRENCFS  TC  COLUMNS  CAN 
P*  OUT  OF  ORDER ,  A  COLUMN  PEFFPfNCF  CAN  BF  REPEATED,  A  COLUMN 
PHRASE  CAN  BE  EXECUTED  WHEN  IT  IS  *OUND,  AND  SEVEPAI  DI**ER?NT 
(C)  FFFFRFNCFS  CAN  OCCUR. 

IN  *  A  (C  ?0 ,  11-20(10),  ?C)  WT LI  ?POVTP,!‘  7  RESULTING 
COLUMNS.  THEY  WILL  BF  THT*  SAMF  AS  ORIGINAL  COLUMNS  20,  11,  13, 

16,  17,  19,  A ND  20,  IN  '"HAT  ORDER. 
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*  PRINT  =  *(C  21-AGE)  %*  will  PRINT,  FROM  FILE  B,  THOSE 

COLUMNS  FROM  "H! '  COLUMN  IN  POSITION  21  THROUGH  TR7  COLUMN 
LABELLED  AGE.  IF,  FOP  EXAMPLF,  AGE  WERE  THE  29TH  COLUMN,  THE 
PRINTOUT  WOULD  HAV'  HAD  JUST  9  COLUMNS. 

'INTCDS,  IN  =  A (C  214),  COR  =  AA  $»  WILL  PPOVTDF 
TNTFRCOR RELATIONS  OF  AIL  VARIABLES  EXCEPT  THE  FIRST  2C. 


C.  BOTH  DOW  AND  COLUMN  SFLFCTTCN . 

IN  =  CHAT  {  B  1-12,  IS,  18-21  ) 

IS  THE  SAM?  AS.  .  . 

IN  =  CMA'"  (  P  1-12,  15,  18-21  )  (  C  1-12,  15,  18-21  )  . 

RESTRICTIONS  OF  »R*  TYPE  USAGE  APPLY. 


D.  STA' 


IN  =  P  (*)  .  '"HE  MOST  PEC'NTLY  ENCOUNTERED  QUALIFICATION  TEXT 
US'D  ON  ANY  FILE,  IN  THIS  OF  A  PREVIOUS  STEP,  IS  APPLIED  TO  FILF  B . 

EFROFS  CAN  CAUS'  A  PROBLFM  WITH  STAR  USAGE.  IF  SOME  ROW 
SELECTION  IS  USED  IN  STEP  1,  SO  HE  COLUMN  SELECTION  IS  USED  IN  STEP 
2,  AND  A  STAR  IS  DSFU  IN  STFP  3,  ALL  IS  FINE  IF  NO  ERRORS  HAVE 
OCCURRED.  IE  THE  OPERATION  NAME  IN  STEP  2  WEPE  MISSPELLED, 

HOW'VER,  '"HE  STAR  IN  STEP  3  WOULD  PE  AMBIGUOUS.  STEP  2  SORT  OF 
DISAPPEARS,  AND  THE  STAR  IN  ST'P  3  IS  LEFT  HANGING.  CLEARLY  IT  IS 
WRONG  "*0  GO  BACK  TO  USE  THE  QUALIFICATION  IS  STEP  1.  THEREFORE, 
STAR  USAGE  WILT.  USE  THE  MOST  PECFN'"  QUALIFICATION,  UNLESS  AN  ERROR 
FAS  OCCURRED  SINCE.  IF  SO,  THE  STAR  USAGE  WILL  BF  REPORTED  AS  AN 

pppoo , 

LEFT  *  X (C  N-UO),  RIGHT  =  P  (*) .  COLUMNS  CNF  TO  'ORTY  OF  B  WILL 

»F  USED. 


CONSIDER 


•  •  • 


IFF’"  =  X  (Cl- AG')  ,  HIGH"-  =  ?  (*).  IE  AGE  IS  VARIABLE  40  IN 
Pit'  X ,  IT  IB  NOT  N'CFSSA'ILY  TEU'  "’HAT  COLUMNS  1-40  OP  FILS  B  WILL 
BE  USED  B'CAUS'  op  -HE  (*)  .  I'  AGE  IN  B  IS  COLUMN  2D,  COLUMNS 
1-2*  WILT  BE  USED. 

IN  *  X  (  F  21  -  5*  )  (0*)  DOES  NOT  WOFK.  (♦)  MUST  BE  THE 

ONLY  -HTNG  B'^W'FN  A  ETL'  NAM'  AND  A  COM*A  OR  DOLLAR  SIGN. 
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5.  SYSTEM-*  INVOLVED  OPERATIONS 

C 

END 

HEAD 

MANUAL 

MAXERROR 

PPSOORCE 

PRIMER 

PUPGE 

RETAIN 

SOURCE 

XKEAD 

**************************************************************** 

C=  (A  CONSENT  CAN  'JO  HERE.)  $ 

AS  IN  FORTRAN,  C  STANDS  FOR  CCMMFNT.  IT  SHOU1D  3E... 

C  =  (  LIST  )  $ 

THERE  CAN  PE  16P  CHARACTERS  INSID"  THE  PARENTHESIS  (  BUT 
NO  DOLLAR  SIGNS,  OP  EXTRA  RIGHT  PAR ENTHESFS  ). 

*********************************  ** *********************  ******** 


END  $ 

THIS  ENDS  A  P-STAT  RUN.  USING  ‘END  $  END  $•  IS  POSSIPLY  CLEVER. 

IT  CANNOT  HURT,  AND  OCCASIONALLY  IS  USEFUL  WHEN  THE  FI»ST  »END  $•  WAS 
SHALLOWED  UP  AS  PART  0*  AN  IMMEDIATELY  PREVIOUS  ^RROR. 

THIS  ALSO  PRINTS  THE  TO'T'AL  NUMBER  OF  ERROR  MESSAGES  THAT  OCCURRED 
DUPIN'?  THE  RUN. 

*******************  ********************************************* 

R3AD=  (THIS  HEADING  CAN  B"  PO  CHARACTERS  LONG.)  $ 

IT  IS  USEFUL  T0  HAVE  A  HEADING  DESCRIBING  THE  CURRENT  PUN, 

OP  A  SPECIFIC  PART  OP  a  RUN,  SO  TH  A'r  BOTH  PRINTED  RESULTS  AND  SAVED 
FILES  HAV"  INFORMATION  DESCRIBING  WHAT  THE  PUN  WAS  ALL  ABOUT. 

A  SINGLE  RUN  CAN  CONTAIN  ANY  NUMBEP  OF  HEAD  CARDS. 

EACH  NEW  ’HEAD*  CARD  REPLACES  TH*  HEADING  PROVIDED  PY  THE  PREVIOUS 
*  HE  AD'  CARD.  SEE  '  X  HE  AD  *  FOR  A  DPITICN*.  T  HEADING  CAnA  I.TTY  . 

*****  ****** ****************** ************  +  ********»**** ********* 

MANUAL  $  oe  MANUAL  =  NUM PER  t 

THIS  CAUSFS  THE  MANUAL  TO  BE  PRINTED.  IT  A  KES  A  BOUT  25  SECONDS 
OE  COMPUTING  TIME  (  ON  A  15C/D1  )  AND  PRODUCES  ABOUT  01  FULL  PAGPS. 

MANUAL  =  52.1  $  TE  THIS  IS  DONp,  THr  STS’"*'*  ASSUMES  YOU  WISH 
EVPR Y  NEW  PAR"  OF  THE  MANUAL  SINC*  VERSION  *2.1  TO  RP  "LAGGED,  SO 
THA'"’  CHANGES  CAN  BE  "ASILY  NOTICED. 


{  P-STA?  VFRSION  5?.  5) 


PAGE  18 


AT  PS  INC  BTOS,  THE  FOLLOWING  JOE  T3  THE  LEAST  EXPENSIVE  NAY  TO 
PRINT  s  CURRENT  MANUAL  (  WITHOUT  ANY  FLAGGING  )  . 

//JOE......  RFGICN=t»0,  P=100 

//  EXEC  PSTA^OM 


t  +***♦**♦♦**♦*****■♦  A**  *****  *4****» ******  +  +  +  ++  +  +  +  +  +  #  +  4*  +  *  +  +  +  +  +  +  * 

[ 

|  M AXFRPOR  -  1  $ 

I 

A  RUN  WILL  NORMALLY  TERMINATE  IT  FIVE  CONSECUTIVE  ERRORS  OCCUR. 
THIS  EXAMPLE  CHANGES  THE  INITIAL  SYSTEM  SETTING  OF  FIVE  TO  ONE,  SO 
?  THAT  THE  PUN  WILL  END  WITH  THE  FIRST  ERROR.  M AXPRROR  CAN  BF  SFT 
TO  ANY  INTEGER,  AND  CAN  BE  MODIFIED  SEVERAL  TIMES  DUPING  A  RUN. 

********  ******  ********  +  ************  *******^**,*4******  ********* 

RESOURCE  $ 

PR  PSINTT 

pr;  pst  nop 

PPPU  EXFC 
*PND 

PPSrU”CE  PERMITS  THE  PRINTING  AND/OP  PUNCHING  OF  SPECIFIED  PARTS 
OF  TH*  SOURCE  CARD  IMAGE  PILE,  THE  ABOVE  EXAMPLE  CALLS  wOR  SUBROUTINE 
* PSINTT’  TO  BE  PRINTFD,  'PSINOP*  TO  BE  PUNCHED,  AND  ’EXEC*  TO  BE  BOTH 
PRINTED  AND  PUNCHED. 

P?  "EAMS  PRINT. 

PU  MEANS  PUNCH. 

TH*  FIRST  tpS«  o?  'PU’  ON  A  CA^D  MUST  APPEAR  IN  COLUMNS  1  AND  2. 
THE  SECOND  {  IF  BOTH  A.R*  USED  )  MUST  APPEAR  IN  COLUMNS  3  AND  tt.  IN 
DITHFR  CASE,  AT  LFA.ST  1  BLANK  MUST  PPFCEPF  TH*  NAME  OF  THE  DECK  TO  BE 
PROCESSED.  THIS  NAM?  CANNOT  GO  BEYOND  COLUMN  77. 

A  HAN*  CANNOT  OF  ON  TWO  CARDS. 

PP  GLOP 
DU  GLOP 

THE  A  30V*  WOULD  NO"’  WORK.  ACTUALLY,  THr  FIRST  PFQUFST  WOULD  UH  DONF, 
BUT  WOT  "HF  SECOND, 

A  * **ND*  CARD  MUST  *0!  LOW  THE  T AST  PFQUFST  CAPD. 

Spf  *  SOURCE'  FO5  THE  0'  C/,7c L  INFORMATION  NEEDED  TC  AOCESS  THE 
SOURCE  *IIE  AT  potjjc^"^. 
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***********************4  44* ****** *4*44444444 ********  * 444 44*444 

PRIMER  $ 

THIS  CAUSES  A  SHORT  (  LESS  THAN  20  PAGF  )  PRIMER  TO  BF  PPINTED. 
IT  IS  SIMPLER  THAN  THE  MANUAL,  AND  SHOULD  BE  READ  BY  NEW  P-STAT 
USERS.  IT  HAS  A  NUMBER  OF  SHORT  EXAMPLES.  USE  OF  .  .  . 

PRIMER,  PUNCH  t 

WILL  CAUSE  THE  EXAMPLES  TO  BF  PUNCHFD .  A  USER  CAN  THFN  PUN  THE 
EXAMPLES  HIMSELF. 

AT  PRINCETON,  THE  FOLLOWING  JOB  IS  THE  LEAST  EXPENSIVE  WAY  TO 
PRINT  A  CURRENT  PRIMER . 

//  JOB .  REGION=4C  ,  P=2C 

//  EXEC  PSTAT52P 

/* 


44444444444444444*444444444*4444444444*4444 4*4*44  *4*44444  4444*4* 

PURGE  =  A  /  8  /  C  $ 

FILES  A,  B,  AND  C  APE  TO  BF  PURGED.  A  FILE  GENERALLY  IS  USING 
SPACE  IN  A  P-STAT  SCRATCH  FILE  CN  DISK,  AND  SOME  TABLE  SPACE  IN  CORE 
SO  THAT  THE  P-STAT  I/O  ROUTINES  KNOW  WHERE  IT  IS,  ETC.  PURGING  A  PILE 
FREES  UP  THE  DISK  SPACE  AND  DELETES  THE  INFORMATION  ABOUT  IT  IN 
P-STAT* S  TABLES.  IN  GENERAL,  P-STAT  PUNS  FASTER  WHEN  IT  HAS  FEWER 
FILES  TO  WORRY  ABOUT. 

ASSIGNED  OP  ATTACHED  FILES  (SEE  BELOW)  APE  NOT  THEMSFLVES  HURT 
BY  A  PUPGF  (  I.E.,  THEY  APE  STILL  ON  THEIR  TAP*S  )  EUT  P-STAT  NO 
LONGFR  KNOWS  ABOUT  THEM. 

PURGE  $  MEANS  PUPGF  E7EPYTHING . 

44 44*4*4 44** 4* *4 *4* *4 *4* *4 44*4* 4* 4*  4*44*444  4**4 4* *44**4* 4* ****** 


RETAIN  =  X  ? 

A  USER  WOULD  DO  THIS  IF  X  WFPF  THE  ONLY  FILE  HP  WISHED  TO  KEEP 
ON  USING.  IT  IS  LIKF  SAYING  PURGE  EVERYTHING  BUT  X.  HAVING  DONE  THIS 
NEW  FILES  CAN,  OF  COURSE,  BE  CREATED  AND  USFD. 

BO'i’H  PURGE  AND  PE^AIN  CAN  HAVE  ONE  OF  MOFE  ARGUMENTS.  USE°S  SHOULD 
USE  THESE  OPERATIONS,  SINCE  IT  PFPMTTS  THP  SYSTFM  ”‘0  USE  STORAGE  ROPE 
EFFECTIVELY.  QUALIFICATION  0*  THE  ETI.R  NAMES  IS  IGNORED,  AS  IT  DOES 
NOT  MAKE  ANY  SENSE. 

NO'T'E  -  A  FILE  CAN  BE  SAV^D  (  SEE  SAVE  AND  FIND,  BELOW  )  AND  THEN 
PURGED.  SAVING  MEANS  THAT  I*  IS  COPIED  CNTC  the  USrPS  PERMANENT 
DATA  TA°E.  THE  FIND  OPERATION,  IN  THIS  0?  ANOTHER  PUN,  CAN  *TND 
IT  AND  MAKE  IT  ACCPSSABIF  FOP  P-STAT  OPERATIONS.  PUPS*  MFANS  THAT 
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,  THE  SYSTEM  FORGETS  ABOUT  *HF  PILE  POP  THE  PEST  OP  THE  HUN,  THUS 
[  PPEETNG  UP  THE  'RAPE  OP  DISK  SPACE  USED  BY  THE  PILE. 

*♦*****♦♦■**  •*■  a****************  *1 >  +  **************•***  ************ 


source  $ 

THIS  PRODUCES  A  LISTING  OF  THE  P-STAT  SOURCE  STATEMENTS. 

THWPF  IS  SOME  EDITING  ...  EACH  PROGRAM  STARTS  ON  A  NEW  PAGE  AND 
TH’PPF  IS  A  TABLE  OF  CONTENTS  WITH  PAGE  NUMBERS  AT  THF  END .  ABOUT 
BOO  PAGES  APE  PRODUCED. 

AT  PRINCETON,  THE  SOURCE  FILE  IS  NOT  KEPT  ON  A  RESIDENT  DISK 
PACK.  TH*REFORp,  THE  FOLLOWING  CARD  MUST  Bw  INCLUDED  BETWEEN  THE 
»//  JOB*  CARD  AND  THE  •//  EXEC  PSTAT52  *  CARD  ... 

/♦SETUP  UNIT=2R1«,TD=BBP2C1 

THF  •//  EYE C  PSTAT52'  CAPD  SHOULD  INCLUDE  ... 

//  EXEC  PSTAT52,SNAME=‘ U. PUHLER.SOUPCE52' 

********************* ************** ********************* ****** 

THRAD  *  (  SECONDARY  HEADING  )  S 

CONSIDER  A  HEADING  WHICH  HAS  A  SLASH  (/)  SOMEWHERE  IN  IT. 

I'1’  IS  SOMETIMES  USEFUL  TO  BF  ABLE  TO  CHAN3F  THE  PART  OF  THE  CURRENT 
HEADING  THAT  IS  TO  THE  RIGHT  CF  THF  SLASH  WITHOUT  AFFFCT1NG  THF  LEFT 
PART.  FOP  ^XAMPL* . 

HEAD  =  (  OC*"  70,  WP®S  DATA  /  CARD  1  ANALYSIS  )  $ 

XHFAD  =  (  CARD  2  ANALYSTS  )  $ 

APTR  "HES*  TWO  CARDS,  THE  RESULTING  HEADING  WOULD  B* . 

*  OCT  70,  WPRS  DATA  /  CARD  ?  ANALYSIS  • 

T H E  FOLLOWING  WOUL^  CAU^F  mHF  NEW  TEX’"  TO  REPLACE  ALL  OF  the  OLD 
HEADING  STARTING  TO  TH7  PTGH'T'  OF  F  s^CCND  SLASH  IN  FROM  THE  FIGHT. 

XHEA^  =  (  SOMETHING  ),  SLASH  =  ?  I 

,rHE  NEW  HEADING  C*N  T7S’Tr  CCNTATN  SLASHES,  ALLOWING  IT  TO  BF 
P  APT  ALLY  MODI*1  Irn  LA"WP.  X  H  F  *  I  IS  FREQUENTLY  HELPFUL  WHEN  NESTED 
MACROS  AFE  RT^O  ijsn, 
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6.  INPUT-OUTPU”’  OPEPATIONS 

FPPINT 
OSIRIS. P 

tlot 

PRINT 

PUNCH 

SOATA 

(  NOTE-  THE  OPERATION  'DATA’  IS  IN  A  SFPARATE  SECTION  ) 

************************  ***********************  **************** 

BPRINT  =A/.2/A/.4/A$ 

BPRINT  STANDS  FOR  BLANK  PRINT.  THF  ARGUMENTS  ARE  THRESHOLD 
VALUES  (GENERALLY  PROM  0  TO  . 4  OP  SO)  AND  PILE  NAMFS. 

THIS  PROGRAM  PRINTS  A  FILE  18  COLUMNS,  50  ROWS  TO  A  PAGE. 

I*  IS  INTENDED  FOR  CORRELATION  OR  FACTOR  MATRICES.  EACH  SCORE, 

3EFORF  PRINTING,  IS  MULTIPLIED  PY  100  AND 

PRINTED  WITHOUT  A  DECIMAL  POINT.  IF,  HOWEVER,  THE  ABSOLUTE  VALUE  OF 
THE  O^IGTNAL  SCORE  IS  LESS  THAN  THE  CURRENT  THRESHOLD,  THE  LOCATION 
ON  THE  OUTPUT  PAGE  WHERE  IT  WOULD  HAVE  PRINTED  IS  SIMPLY  LEPT  BLANK. 

IN  THE  EXAMPLE,  A  IS  PRINTED  3  TIMES  USING  DIFFERENT  THRESHOLDS 
(0,  .2,  AND  .4) . 

VERSION  52  -  THE  FILE  CAN  BE  UP  TO  150  BY  1*0. 

HISSING  DATA  (  WHICH  IS  SELDOM  FCTJND  IN  ^HIS  TYPE  OF  FILP  )  IS  PRINTED 

AS  AN  'X*. 

********  **************** **** *  **********  ******  ******  *****  ******** 


OSIRIS. P,  OUT  =  X  $ 

THIS  PROGRAM  TAKES  AN  OSIRIS  DATA  FILE  AND  DICTIONARY  AND  CREATES  A 
P-STAT  FILE.  THE  OSIRIS  SYSTEM  WAS  WRITTFN  AT  THE  INSTITUTE  FOR 
SOCIAL  RFSEARCH  A’”  THP  UNIVERSITY  OF  MICHIGAN.  IT  FUNS  ONLY  ON  360 
COMPUTERS.  SINCE  THIS  P-STAT  LINK  USES  SOME  OF  THEIP  SUBROUTINES,  THIS 
LTNK  WTLI  ONLY  WORK  ON  A  360. 

THF  P-STAT  STATEMENT  MUST  3F  FOILOWFP  BY  CERTAIN  OSIRIS  CARDS..,. 

1  -  A  FILTER  CARD  (  OPTIONAL  ) 

2  -  A  LABEL  CARD 

3  -  VARIABLE  LIST  CARD(S) 

THES  F  CARDS  ARF  P*SCPIEED  IN  THE  0*IPTS  MANUAL. 

THr  COLUMN  LABELS  IN  THE  R-  ST  AT  PTLP  WILL  PE  OSI^.I,  0STP.2, 

OSTR.3,  ETC. 

TH*  FUN  MUST  ACCESS  A  DATA  pTlp  AND  A  DIC^TCNAT  Y .  THPSE  ARP 
MR E0HpN?L Y  TWO  PIlpS  ON  A  SIN!LP  TARF.  '’’WO  •  DO •  CARDS  A rF  NEEDED. 
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//PS TAT .DTCTIN 

DD 

FTC.  , 

FOR 

TH*- 

DICTIONARY  FILE. 

• 

//PST  AT. DATAIN 

DD 

ETC., 

FOR 

THE 

DATA. 

THE5E  CAPPS  FOLLOW  THE  •//  EXEC*  CARD  AND  PRECEDE  THE 
1  * //PSTAT. SYSIN  PD  *•  CARD. 

!  ************** ****************************** ********  ********** 


PLOT  ^  A ,  ONE  $ 

XY  Y  XX 
♦END 

THIS  PLOTS  SPECIFIED  COLUMNS  CF  FILF  A  AGAINST  EACH  OTHER. 
EACH  PLOT  USES  A  PAG?  OF  OUTPUT.  MISSING  SCORES  ARE  SKIPPED. 

I 


ONE, 

IF  ’’’HERE, 

PRINTS 

BOTH 

AXES 

FROM  *1  TO  -1 . 

SYM, 

IF  THFR*, 

PRINTS 

BOTH 

AXES 

THF  SAMF,  SYMMETRICALLY, 

IN  H't'FdS  OF  0.2  . 

IF  THr  LARGEST  ABSOLUTE  VALUE  IN  TH*  TWO  COLUMNS  FOR 
A  GIVEN  PLOT  IS,  FOP  EXAMPLE,  C.7R,  BOTH  DIMENSIONS  OF 
THE  PLOT  ARE  FROM  -C.PP  TO  *0.80. 


rv  v^ITHPR  IS  THERF,  SCALE  AS  IS. 

THFPE  ARE  TWO  TYPES  OF  PLOT  CCNTFOL  CARD,  A  C  CARD  AND  AN  XY  CARD. 

A  C  CARD  HAS  0  0*  BLANK  IN  EACH  COLUMN.  IF  C  IN  COLUMN 
2,  7,  ID,  AND  16,  ?LP-r  S  WILL  BE  OF  VARIABLES  2-7,  2-ID,  2-18,  7-10, 
7-16,  AND  1^-16  .  EACH  C  IS  PLOTTED  ONCE  AGAINST  EVFRY  OTHER  C. 

AN  XY  C \p D  HAS  X,  Y,  OP  BLANK  IN  EACH  CCLUMN.  Iw  X  IN  COLUMN 
11,  6,  7,  AND  Y  IN  COLUMN  2  AND  4,  PtPTS  WILL  BE  OF  FACH  X  VARIABLE 
[  AGAINST  p ACH  OF  TH”  Y  V APTABLrS ,  1-2,  1-4,  6-2,  6-4,  7-2,  AND  7-4. 

TwroT  CAN  Dv  A vv  NUMBER  Or  THESE  CARDS.  T'r  MUST  END  WITH  A 
*®ND  CA°o, 

|  VERSION  52-  Eli  F  A  CANNOT  H»VF  OVIT  «■'  CCT  UMNS,  AND  THE  PRODUCT 

|  ROWS  *  (COLUMNS  ♦  2)  CANNOT  rXCM  D  ‘,c,rDD. 

[ 

[  *******i****#r***»»*i****»  *********  ******************************* 


o 

a 


PP!'"’'  =  \/1/A/P/2/r't 

IDV*jTTVTVpc;  ur 

P  F  I N  * ,  A  NO 

Pn T NTT.OW  (OTr  q  r LOW)  , 

T-JT  soriprr  LT  S"  TAN  O0NTATN  SINGLE  DIGIT  INTEGERS  ('  THRU  9)  AND 
NAM  ffS  ov  fU.vR,  »u  TC!! ,  M  USUAL,  CM'  «E  0M  A  LIFTED. 

ALL  WTI  ES  *'  T  vrpopv  A  r  t  d  t  ,T  (jv  ANY)  IN  'r>  H p  LIST 


Q 

a 
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OF  ARGUMENTS  APE  PPINTFD  TO  ZERO  PLACER. 

WHENEVER  AN  INTEGER  OCCURS,  FILES  AFTER  IT  IN  THE  LIST  A R F  POINTED 
TO  THAT  NUMBER  OF  PLACES  (UNTIL  ANOTHER  INTEGER  OCCURS). 

’’’HIS  EXAMPLE  PRINTS  A  TO  NO  PLACES,  THEN  A  AND  P  TO  3  PLACES, 

THEN  C  TO  2  PLACES.  PRINTING  IS  8  VARIABLES  AND  50  ROWS  TO  A  PAGF. 
HISSING  DATA  IS  PRINTED  AS  AN  X  (LITERALLY) .  IE,  IN  EACH  HUNDRED  ROWS 
ANY  ABSOLUTE  SCORE  ON  A  VARIABLE  IS  SO  LARGF  THAT  ITS  MOST 
SIGNIFICANT  DIGIT  OR  ITS  SIGN  WILL  NOT  F*  PRINTED,  THE  FOPMAT  FOR 
TH AT  VARIABLE  IS  CHANGED  TO  AN  F  TYPF  FORMAT. 

THE  USUAL  FORMAT  IS  1X,F13.N,  WHERF  N  IS  EITHER  7*PC  OR  THE  MOST 
RECENTLY  FOUND  DIGIT  (0  TO  9)  IN  THF  ARGUMENT  LIS1 2’’.  TP  A  SCORE  IS 
“2344 , 1  AND  N=8,  THE  8  PLACES,  DECIMAL  POINT,  4  HIGH  OPDER  DIGITS, 

AND  MINUS  SIGN  MAKE  14  CHARACTERS,  AND  THE  MINUS  SIGN  COULD,  IN  SOME 
COMPUTERS,  BE  LOST.  INSTEAD  ’’’HE  PPCGRAM  CONVERTS  THE  FORMAT  FOR 
THAT  VARIABLE  TO  IX,  E13.6,  SO  THAT  -0 . 2 344 1 0 E  +  0 3  (OR 
-2. 344100E+02)  WOULD  PRINT.  SUCH  A  FORMAT  EVALUATION  IS  MADE  EACH 
HUNDRFD  ROWS.  THEREFORE,  THE  EIPST  100  ROWS  FOP  VARIABLES  1-8 
MIGHT1  HAVE  VARIABLE  4  IN  E  FORMAT,  AND  ON  ROWS  101-2^0  IT  MIGHT  BE 
ABLE  TO  PE  PRINTED  TN  F  FORMAT. 

A  "ELATED  PROBLEM  IS  THE  VALUE  C.C''4  WHEN  1X,F13.2  FORMAT  IS  IN 
USE,  THAT  IS,  SCORES  '”00  SMALL  TO  PRINT  IN  THE  DESIGNATED 
NUMBER  OF  PLACES.  IF  IT  IS  A  COPPELATICN  MATRIX,  THE  USER  PROBABLY 
IS  SATISFIED  WITH  0.00  PRINTING  FOR  THAT  SCORE  (I.E.,  WITH  F  FORMAT 

BEING  KEPT).  HOWEVER,  THE  USER  OF  THE  IDENTIFIER . PRINTLOW.... 

WILL  CAUSE  E  FOPMAT  TO  BE  USED  WHENEVER  THE  SMALLEST  ABSOLUTE  VALUE 
ON  A  VARIABLE  IS  TOO  SMALL  TO  HAVE  ITS  LEAD  DIGIT  APPEAR. 

PRINT  ■  A  /  2  /  B  ,  PRINTLOW  $  WILL  PRINT  A  AND  B  IN  THAT  MANNER 

ANY  SIZE  FILE  CAN  BE  PRINTED. 

VERSION  52  -  UP  TO  200  COLUMNS  APE  PRINTED  IN  A  PASS  THROUGH  THF  FILE. 
TN  OTHER  WORDS,  TE  A  FILE  HAS  420  COLUMNS,  THE  PPOGRAM  WILL 
AUTOMATICALLY  M A Kr  THREE  PASSES  THROUGH  THE  FILE. 


**************************************** ********** ************** 

PUNCH=  A ,  CAPDS=1  /  If  /  (10F7.  2)  /  1  1  /  30  /  (20E3.0)  $ 

THIS  PUNCHES  *  FILE  ONTO  CARTS,  IN  A  FOPMA1’  WHICH  CAN  BF  USED  AS 
INPUT  TO  THE  DATA  PROGRAM.  THE  FIRST  CARDS  ^  HAT  ARE  PUNCHED  ARE 
CONTROL  CARPS  FOP  THE  DATA  PROGRAM  (  DAT A=  *LAB  *FMT  *MISS 
AND  *CAFPS  )  AND  ”H EN  THE  FILE  IS  PUNCHED,  BY  ROWS,  WITH  ^NO 
LIMITATIONS  ... 

1-  ONLY  COLUMNS  11-Br  AR  *  A V AIT  API E  FOR  DATA.  COLUMNS  1-10  APE 
USED  "OR  T»»e  ROW  LABEL  AND  TOP  SEQUENCING . 

2-  ONI  Y  9  CARDS  P^R  ROW  CAN  USED. 


A  1  *  END •  CA"D  IS  PUNCHED  AT",TC  THE  LAST  "ON  I<?  FINISHED 
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IN  THF  EXAMPLE,  FIL*1  A  IS  PUNCHED.  *CARDS  =  '  DESCRIBES  THE  OUTPUT 
CARDS,  USING  3  ARGUMENTS  RER  OUTPUT  CARD. 

1-  THF,  FIRST  VAPI  ABLE  ”'0  BF  PUNCHED  ON  THAT  CARD. 

2-  T H°  LAST  VARIABLE  TO  BE  PUNCHED  ON  THAT  CARD. 

3-  THE  EORMAT  FOR  THOSE  VARIABLES,  USING  F,X,  OR  E  FORMAT. 

THIS  DESC15  IBFS  COLUMNS  11-80  ON  THF  CARD  TO  BE  PUNCHED. 

IN  THE  FXAMPLF,  VARIABLES  1-10  WILL  BE  PUNCHED  IN  THF  FIRST  CARD 
IN  2A4,I2,10F7.2  FORMAT.  THF  2A4,I2,  A  RF  GENERATED  INTERNALLY.  THEN 
VARIABLES  V.-30  APE  PUNCHED  ON  THF  SECOND  CARD,  USING 
2A4, 1 2, 20F3 ,C  FORMAT.  TWO  CAPES  APF  PUNCHED  FOR  EACH  ROW  OF  FILE  A. 

******  ********************************************************** 

SDATA  =  B,  NV  =  10,  FORMAT  =  {  10F2.C  ),  PRINT  $ 

(DATA  CARDS) 

♦END 

THIS  IS  A  SIMPLE  DAT\  PROGRAM.  IT  LACKS  THF  FEATURES  OF  THE  DATA 
PROGRAM,  BUT  TT  jS  FAST. 

SDATA=  the  NAME  OF  THE  OUTPUT  FILF. 

NV  =  tht  NUMBER  OF  VARIABLES  IN  THF  OUTPUT  FILF.  CANNOT  EXCEED  80. 

FORMAT  =  (FORMAT).  THE  FORMAT  ITSELF  CAN  BE  UP  ?n  160 
CHARAC^RS.  IT  CAN  ONLY  USE  X,  F,  CR  E  TYPE  SPECIFICATION  IN  THE 

FORMAT. 

PRINT,  THr  INPUT  CARDS  APF  LISTED.  IF  THIS  OPTION  IS  USED. 

TAPE  =  A  FILE  NUMBER  WHERE  THE  CARDS  ARE,  IF  NOT  WITHIN  THE  P-STAT  DECK. 
TT  tc  Not  NpCESSAn Y,  I17  thf  CARDS  A  R*  ON  A  TAPE,  FOR  A  »*END»  CARD  TO 
BE  TH~  FINAL  CARD  THE . 

THEpE  CAN  ONLY  BE  1  DATA  CARD  R?*  CAS*.  THERE  IS  NO  PROVISION  FOR 
LABELS  (T  Hv  Y  GFT  GrNFCrATED)  ,  NOE  FO*  MISSING  OP  INVALID  DATA.  IF 
THESE  « A  PROBLEM,  US*  TH17  DATA  PROGRAM. 

DO  NOT  EORG  ET  THF  *PND  CAPD  A  p"”7”  '"HF  LAST  DATA  CARD,  IE  THE  CARDS  APE 
WITHIN  p-STAT  TNPUT  DECK. 


I 
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7.  SAVING  AND  USING  P-STAT  FILES  ON  TAPES 

NEWPDT 

SAVE 

FIND 

COPY • PDT 

EDIT 

TRIM 

ASSIGN 

ATTACH 

REWIND 

NOTE  -  OF  THESE,  SAVE  IS  THE  ONLY  OPERATION  THAT  PERMITS 
QUALIFICATION  OF  FILE  NAME’S. 

**************************  ************************************* 

NEWPDT,  TAPE  =  62  $ 

CREATF  A  NEW  PERMANENT  DATA  TAPE  (I,  E. ,  PUT  IT  INTO  P-S^AT 
DATA  FORMAT). 

TAPE  (OR  FILE)  62  IS  REWOUND  AN E  A  DUMMY  RECORD  IS 
WRITTEN,  DEFINING,  IN  EFFECT,  THE  END  OF  THE  P-STAT  DATA  ON  THE  TAPE. 
•NEWPDT*  ONLY  MAKES  THE  TAPE  READY  FOR  FILES.  THE  'SAVE*  OPERATION 
CAN  THEN  BE  USED  TO  STORE  FILES  ON  THAT  TAPE  FOP  USE  DURING 
THIS  OP  SUBSEQUENT  RUNS.  THE  USER  SHOULD  CLFAPLY  NOTE  THAT, 

WHEN  A  NEWPDT  IS  DONE,  ANY  INFORMATION  PREVIOUSLY  ON  THF  "’APE  IS  LOST. 

SEVERAL  PERMANENT  DATA  TAPES  CAN  BE  USED  A*  TRE  SAME  TIMF. 

61  THROUGH  69  ARE  RESERVED  FOR  PERMANENT  DATA  TAPES  (WHICH  CAN  BE 
EITHER  TAPES  OP  DISK  FILES  ON  THF  360). 

IF  NO  *TAPE=N«  IS  POUND,  61  IS  hSSUMED.  THIS  MULTIPLE  PDT  FEATURE 
PERMITS  COPYING  OF  ALL  OR  SELFCTED  FARTS  (USING  'MND')  0?  SEVERAL 
PDT'S  ONTO  ANOTHER.  ANOTHER  USF  IS  TO  CHECKPOINT  FILES  DUPING  A  RUN 
ONTO  ONE  PDT,  USING  ANOTHER  PDT  FCR  SFRIOUS  SAVING,  (  NOT  -  TH'B‘ 
OPERATION  'COPY. PDT'  IS  TH*  BFST  WAY  TO  COPY  A  PDT.  ) 

THE  NUMBERS  61-63  ARE  THOS"  PDT  NUMBERS  EASIEST  TO  USF  **TTH 
PRI NCFTON  * S  36 C  CATALOGED  PROCEDURES  FOR  P-STAT  USE. 

*  NEWPD""  IS  NECESSARY  *0P  NEW  'SAVE*  TAPES,  Bn*’  SHOULD  NOT  BE  USED 
FOR  AN  'ASSIGN*  TAPE. 

*********  *»**  ****  *******  **  *************  ************************ 


SAVE  =  A  /  MR  1  -30)  t 

THIS  COPIES  FILES  ONTO  A  USERS  PERMANENT  "ATA  TAP*. 

FIRST  A,  AND  THEN  ROWS  1-3C  OF  P  WILI  BF  WPITTN  (AS  SFPARAT 
P-STAT  FILES)  ONTO  A  PDT  (PFPMANFNT  DATA  ^ AFF)  ,  PFYOND  ANY  0T HFR 
FILES  ALRFADY  THFP*. 

AS  MANY  FILES  AS  CAN  *T"  CAN  GO  CTO  A  PDT. 
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A  2400  FOOT  '’’APE  CAN  HOLD  ABORT  500C  BLOCKS  (OF  465  WORDS  EACH). 
THUS,  A.  FTI.E  OF  400*  POWS  BY  120  COLUMNS  WOULD  OSF  ABORT  450  FEET  OF 
THE  TAPE. 

FTLF  NAH’?e  BEING  SAVED  CAN  BF  QUALIFIED  IN  ANY  WAY. 

SF?  * NEWPDT*  REGARDING  THF  «TAPE=*  OPTION. 

SAVE  t  COPIES  ALL  CURRENT  FII't'S  ONTO  THE  DESIGNATED  PDT. 

NEWPDT ,  TAPE  =  62  $  SAVE,  TAPE  »  62  I 
WORLD  COPY  ALL  CURRENTLY  ACTIVE  FILES  ONTO  A  NEW  TAPE  62. 

******** ****4***** ****** ********* *******  *********************** 

FIND  *  A  /  P  /  C  * 

‘’’HIS  *X AMPLE  ASSUMES  PDT  61  IS  PRESENT.  FILES  A,  B,  AND  C  WILL  BE 
FOOND  ON  THE  PDT  AND  COPIED  AS  IS  INTO  THE  SYSTEM.  QUALIFICATION  OF 
THE  FILES  AT  THE  TIMF  THEY  AEF  FOUNT  AND  BROUGHT  INTO  THE  SYSTEM  IS  NOT 
POSSIBLE. 

A  FIND  CAN  B”  DONE  AT  ANY  POINT  DUPING  A  RUN. 

IN  TH*  ABOVE  EXAMPLE,  FILES  A,  B,  AND  C  ARE  STILL  ON  THE  PERMANENT 
DATA  TAPE  AFTFP  THE  FIND  IS  DONF.  HOWEVER,  BECAUSE  OF  THE  FIND 
OPERATION,  THrY  ARE  ALSO  ON  DISK  (  OR  A  SCRATCH  TAPE  )  IN  A  FORM 
DIRECTLY  ACCESS ABLE  TO  THE  OTHEP  P-STAT  OPERATIONS, 

1  EO®MS  0*  FIND  APE  POSSIBLE.  .. 

1  -  ®TND  $  THIS  ^INDS  EVERY  FILE  CN  THE  PDT  AND  MAKES  THOSE  FILES 

USABLE  ON  THIS  RUN.  (THEY  ARE  COPIED  INTO  DISK,  WHICH,  IP 
MANY  FILES  AR *  THERF,  CAN  TAKE  SOME  TIME.)  TWO  FILES  WITH 
THE  SAM*  ” * ” F  ARE  NOT  ALLOWED  T*  FIND  $  IS  USFD. 

2  -  FIND  =  A/P  %  THESE  APE  FCUNO  AND  COPIED.  AGAIN,  THERF 

MUST  PF  ONE  A Nn  ONLY  ONE  'A',  AND  ONE  AND  ONLY  ONE  'P',  IP  THIS 
FOP*  TS  USFD. 

1  -  FIND  *  VX/P/12/Y  $  ’’’HTS  FORM  PFPMTTS  A  FILE  ON  THE  PDT 
TO  BE  RENAMED  AS  IT  IS  *OUND.  IN  OTHEP  WOPDS,  THE  NEW  NAME 
IS  01 V* N  TO  IT  AS  IT  IS  COPIF*  (THF  PDT  ITSEL*  IS  UNCHANGED). 

IE  *W0  OP  MOP*  *T  L  PS  ON  TH*  put  HAVE  THF  SAHF  NAME,  THE  USE 
0*  •  EDIT  t»  PEV  EALS  TH*I P  POSITIONS  ON  THE  PD’r.  THE  ABOVE 
FXANPLE  ETNDS  *T L *  1  AND  RFNA"FS  IT  X,  FTND?  FILE  B  NORMALLY 
Wfl  PEEVE0  TT  TS,  AND  v^nds  *JI*  12,  P*NA  MING  I"'  Y. 

err  tyrvfpp-i  pv^AFOING  ’rHr  ,'rAPF  =  ’  OPTION. 


-npY. PD 

THIS  MANX'S  A 
*UCH  PAS""*”  "’HAN 


CnBY  Tr  pr 
US’rNO.  ,  . 


=  6?  Y 
PNANENT 


DATA 


TAPE  61  ONTO  TAPE  62. 


THIS  IS 


r»  r'T-iXiaiy'Difai 
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FIND  $  NEWPDT,  TAPE  =  62  $  SAVE,  TAPE  =  6?  $ 

IP  THE  INPOT  TAPE  IS  NOT  61,  ’TAPE® •  MUST  BE  USED,  FOR  EXAMPLE... 

COPY . PDT,  TAPE  =  62,  NEWTAPE  =  67  $ 

SEE  * NEWPDT'  REGARDING  THE  'TAPE*  OPTION. 

*************  ************************************************** 

EDIT  S 

THE  PDT  IS  READ  THROUGH  AND  A  REPORT  IS  PRINTED, 

LISTING  THE  NAMES  AND  SIZES  OF  ALL  FILES  ON  THE  TAPE. 

IE,  FOR  EXAMPLE,  'EDIT,  LABELS  $•  WERE  USED,  THE  COLUMN  LABELS  FOR 
EACH  FILE  WOULD  ALSO  BE  PRINTED. 

SEE  ' NEW PDT •  REGARDING  THE  ’TAPE®'  OPTION. 

***** **** ******  ***** ** ** ** ******* ** **** ********** **** ********** 

TRIM  =  3  $  OR  TRIM  =  B  S 

THE  PDT  HAS  SOME  NUMBER  OF  FILES  ON  IT,  SOME  OF  WHICH  AR* 

USEFUL  AND  SOME  ARE  NOT.  TRIM  PERMITS  ALL  FILES  BEYOND  A 
CERTAIN  ONE  TO  PE  SCRATCHED. 

TRIM  *  3  $  TRIMS  TH*  TAPE  SO  THAT  THE  THIRD  FILE  IS  THE 
1 AST  ON  THE  TAPE. 

TRIM  =  B  t  CAUSES  PILF  P  TO  BE  ’rHE  LAST  FILE  ON  THE  TAPE. 

THE  LAST  BLOCK  OF  THE  LAST  FILE  TC  EE  KEPT  IS  FOUND,  AND  A 
DUMMY  BLOCK  THAT  STGNIPISS  THE  END  OF  P-STAT  DATA  IS  WRITTEN 
NEXT.  AGAIN,  QUALIFICATION  OF  ^HF  FILF  NAME  IS  NOT  PERMITTED. 

THESE  SIX  OPERATIONS,  ’NEWPDT',  'SAVE*,  5COPY.PDT’,  'FIND*,  'EDIT*, 
AND  '■’•RIM*  ARE  TH*  ONLY  OPERATIONS  THAT  USE  A  PDT. 

SFE  ’«EWPDT*  REGARDING  THE  ’TAP*®*  OPTION. 

*******************  *******  *********  **************************** 


ASSIGN  =  XX,  TAPF  =  51  $ 

WHEN  A  USER  HAS  A  LARGE  BASIC  FILE  THAT  IS  TO  B*  USFD 
FREQUENTLY,  ON  DIFFERENT  PUNS,  IT  IS  DFSIRABLE  TO  HA VF  THE  FILW  ON 
TAPE  INSTEAD  OF  ON  DISK,  AND  »LSC  TO  HAVE  TH*  FILE  (ALREADY  IV  P-STAT 
FORMAT)  ON  A  SEPARATE  TAPE  AND  THFR1BY  SKIP  THE  'FIND'  COPYING  TIME. 
THE  FILF  WILL,  AT  *OMF  POINT,  BF  CP*AT?D  BY  SO"*  P-STA"  OPERATION. 

TH*  ‘ASSIGN’  OPERATION  INFORMS  TH*  P-S^AT  SYSTEM  THAT  SUCH  A  TAP* 
IS  TO  BE  CREATED.  THE  *  ATTACH '  OPERATION,  DESCFTBFD  N*XT,  ALLOWS 
THE  T|>rr  TO  3E  US*D  ON  A  SUBSEQUENT  E UN . 
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THE  ASSIGN  STATEMENT  MOST  OCCUR  BEFORE  THE  PILE  IS  CREATED. 

TAPE  NUMBERS  51-59  SHOULD  BE  USED  POR  ASSIGN  OR  ATTACH.  NUMBERS 
51-55  ARE  THOSE  ASSIGN/ATTACH  NUMBERS  EASIEST  TO  USE  WITH  PRINCETON'S 
CATALOGED  PROCEDURES  POR  P-STAT  USE. 

THE  ABOVE  ASSIGN  OPERATION  TELLS  THE  SYSTEM  THAT,  WHEN  PILE  XX  IS 
CREATED,  IT  SHOULD  GO  ONTO  TAPE  51  AS  THE  ONLY  PILE  ON  THAT  TAPE. 

TAPE  51  IS  NOT  USED  BY  P-STAT  nNTIL  THEN. 

THE  ASSIGNED  EILr ,  ONCE  CREATED,  CAN  BE  USED  IN  A  NORMAL  WAY 
DURING  THE  SAME  RUN. 

************** ******  ******************* ************************ 

ATTACH  =  XX.  TaPE  =  55  $ 

I  ON  A  SUBSEQUENT  RUN,  THE  ’’’APE  WITH  XX  ON  IT  (DOE  TO  AN  ASSIGN 
‘  ON  A  PREVIOUS  RUN)  MIGHT  BE  DEFINED  TO  THE  OPERATING  SYSTEM  AS 
!  PILE  55.  this  OPERATION  TELLS  THE  SYSTEM  THAT  FILE  XX  EXISTS  AND 
IT  IS  ON  TAPE  55.  WHEREVER  XX  IS  USED  APTEP  THIS,  DURING  THIS  P.UN,  THE 
SYSTEM  WILL  FIND  IT  THERE. 

TAP*  NUMBERS  SI-59  SHOULD  BE  USED  FOR  ASSIGN  OR  ATTACH.  NUMBERS 
51-55  ARE  THOSE  ASSIGN/A^TACH  NUMBERS  EASIEST  TO  USE  WITH  PRINCETON'S 
CATALOGED  PROCEDURES  POR  P-STAT  USE. 

A  GIVEN  TAPE  COULD  BE  ATTACHED  AS  51  ON  ONE  RUN  AND,  FOR  EXAMPLE, 

52  ON  ANOTHER  RUN.  THE  NUMBER  DOES  NOT  HAVE  TO  BE  THE  SAME  NUMBER 
THAT  WAS  USED  WHEN  I"'  WAS  ASSIGNED.  THE  NAME,  HOWEVER,  MUST  MATCH 

;  THE  NAME  OF  THE  FILE  ON  THE  TAPE. 

P 

"RE  ASSIGN- ATTACH  7EATUPE  CAN  GREATLY  IMPROVE  P-STAT  PERFORMANCE 
WHEN  SEVFPAL  LARGE  FILES  ARE  BEING  USED  ON  REPEATED  RUNS. 

TT  NIGH"  BE  NOTED  THAT  AN  ATTACH  TAPE  LOCKS  EXACTLY  LIKE  A  PDT  WITH 
ONLY  ONE  FILE  ON  IT.  IP  ONE  WISHED,  ’’’HEY  COULD  BE  INTERCHANGED. 
HOWEVER,  TH  E  'FIND'  OPERATION  COPIES  THE  FILE  ONTO  A  DISK  RATHER  THAN 
ACCESSING  IT  DTReCTLY.  THEREFORE  U FIDO  ’FIND'  FOP  AN  ATTACH  TAPE  WILL 
TAKE  EAR  MORE  TIME  (PERHAPS  MINUTFS  COMPARED  TO  LESS  THAN  A  SECOND) 

AND  MAY  USE  MOF F  SPACE  ON  THE  DISK  THAN  IS  5UPnLIFD  FOP  I'1’  IN  THE 
CATALOGED  PROCEDURES. 

***********  **  ******  *****  **  ***  ***  *  ******  ***********  ************* 


REWIND  =  91  t 

TAPE  91  IS  0EWnn?!D.  REWINDING  A  TAPF  IS  SCHett(15S  DONE  BEFORE 
USING  THE  'TAPE  =«  OPTION  IN 


[ 

\ 


L 
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fi.  PILE  MANIPULATION  OPERATIONS 

COLLATE 

CORESOFT 

DTP 

LAG 

I.REILL 
PATCH 
MERGE 
MUDMERGE 
NO.  OP 
NORM. COL 
NORM. ROW 
SCAN 
SMEFGP 

*************************************** ***************  ********* 

COLLATE,  LEPT=A,  PTGHT=B,  OUT=C$ 

THIS  PROGRAM  IS  VERT  MUCH  LIKE  A  LEFT-RIGHT  MERGE, 
EXCEPT  IT  PERMITS  SOME  OP  THE  ROWS  OF  THP  RIGHT  HAND  FILF  TO 
BE  MISSING. 

LEFT  -  NAME  OF  LEFT  HAND  DATA  FILE.  THIS  CAN  HAVE  ANY 

NUMBERS  OF  ROWS. 

RIGHT  =  NAME  OF  RIGHT  HAND  FILE  (WITH  PEWER  ROWS  THAN  THW 

LEFT  HAND  FILE).  THE  COMBINED  COLUMNS  OF  LEFT  AND 
RIGHT  CANNOT  EXCEED  THE  SYSTEM  MAXIMUM. 

OUT  =  NAME  FOR  THE  OUTPUT  FILE. 

ALL  LABELS  OF  ROWS  OF  THE  RIGHT  HAND  PILE  ALSO  OCCUR 
IN  ROWS  OP  THE  LEPT  HAND  FTLP,  AND  THPY  MOST  OCCUR  IN  THE 
SAME  ORDER.  ALL  ROWS  OF  THE  LE*T  HAND  FILE  THAT  DO  NOT  HAVE 
A  BOW  OP  THE  RIGHT  HAND  FILE  WITH  THE  SAME  LABEL  WILL  HAVE 
THE  MISSING  DATA  CONSTANT  GENERATFD  FOR  VARIABLES  OF  THE  RIGHT 
HAND  FILF. 

THIS  OPERATION  IS  USEFUL  FOP  THE  FOLLOWING  SITUATION. 

ASSUMF  THAT  ONF  HAS  ONE  THOUSALD  CASES  AND  FORTY 
VARIABLES  AS  ONE  DATA  FILF.  ONF  ALSO  HAS  DATA  ON  TWENTY 
ADDITIONAL  VARIABLES  POP  FIVE  HUNDRFD  OF  THE  PEOPLE.  WHAT  IS 
DESTPFD  IS  A  FILE  0*  ONE  THOUSAND  PEOPLE  BY  SIXTY  VARIABLES, 
PITH  THE  FIVE  HUNDRED  ROWS  OF  THE  NEW  TWENTY  VARIABLES  CONTAIN¬ 
ING  DAT A  AND  THE  OTHER  FIVE  HUNDRED  ROWS  CONTAINING  THE  MISSING 
DATA  CONSTANT. 


***************************************  ************************ 

COP*SORT,  TN= A ,  OUT-B  $ 

IN-COPE  SOP*.  THIS  PROGRAM  ORDERS  A  FILF  ACCORDING 
TO  ONE  OF  ITS  COLUMNS,  OP  ACCORDING  TO  ITS  Rnw  LABELS. 
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IN  =  NAME  OF  INPUT  FILE.  IT  MUST  FIT  IN  CORF. 

OUT  =  fiAMF  FOR  OUTPUT  FILE. 

LAEFL  =  COLUMN  TO  SORT  ON.  TF  NOT  USED,  THE  PROGRAM  WILL  SORT  ON 

THF  POP  IA3FLS, 

IF,  FOR  EXAMPLE,  LABEL® AGE,  SORT  ON  VARIABLE  AGE. 

VERSION  52  -  THF  PRODUCT  NR  *  (NC+2)  OF  'IN*  CAN  BE  UP  TO  23,0C0. 

FOR  FXAMPTB,  IF  A  IS  100  BY  4C,  IT  USES  420C 
CORE  LOCATIONS.  THE  EXTPA  2  IS  THE  2  WORD 
LABEL  FOR  EACH  ROW. 


****** ****** ********* ***********  *******  ************************ 


DIF,  TN  =  A  ,  OUT=B,  Vl=7,  V2  =  9,  STFP=1  $ 


GET  THE  DIFFERENCE  BETWEEN  A  ARIABLE  ON  CNF  ROW  AND 
THE  SAMF  VARIABLE  CN  SOME  LATER  ROW.  IF  A  IS  100  BY  10,  AND 
WF  WISH  DIFFERENCES  ON  VARIABLES  7,  8,  AND  9  AT  A  STEP  OF  ONE 
ROW,  WE  GET  R  99  gy  13  FILE  OUT ,  tHF  FIRST  ROW  HAS  SCORES 
(1,1)  'RO  (1,10)  AS  TH*Y  WERE  READ  IN,  PUT  (1,11)  IS  (1,7)  - 
(2,7).  (1,12)  IS  (1,8)  -  (2,8),  AND  SO  ON.  IF  ANYTHING 

INVOLVED  IN  A  NEW  SCORE  IS  MISSING,  THF  NEW  SCORE  IS  MISSING. 


TN 

OUT 

VI 

V2 

STEP 


INPUT  FILE,  ANY  S-ZE. 

OUTPUT  FILE. 

FIRST  VARIABLE  to  5F  TIFFED. 
LAST  VARIABLE  TO  BE  DIF*FD. 
STFP  SIZE. 


VERSION  52  -  STEP  SIZ^  CANNOT  EXCEED  10. 


LAG,  TN= A ,  OUT=B,  V 1 =7 ,  V2=R,  STRR=2  $ 

APPEND  DAT*  OF  A  L A F  ROW  TC  AN  E ? EL IFF  ROW.  IT 
WOBKS  OUST  LIKE  DT17  EXCEPT  thvrf  T?  VC  SUBTRACTION. 

V-RSTfL  52  -  RTFP  SIZE  CANNOT  EXCEED  10. 


***********  «*****■********»*******».  ***********************  ******* 


LRFTIL,  lrFT  =  A,  Fr  ;H"=B,  WT=C  f 


THI*7  DO 7S  A  IEFt-*IGHT  “ERG17  C?  2  INPU1’  FIL^S. 
HOWRVRR,  TF  ON*  H>  S  BOR1*  ROWS  "'HAN  tbp  OTHER ,  trp  SHORTER  HAS 
ROWS  O’7  MtSST»?G  DAm.A  FI1LVD  IN.  IAPPLS  DO  NOT  HAVE  TO  LINE  UP, 
AND,  IN  baot,  ftP5  not  OHRCKED  A'  All. 

t h R  P rR ULTI EG  N^MERR  r*  COT.UMNS  CANNOT 


EXCppD  T|jr  RYSTF.M 


M  A  X  T  M »  M . 


/ 
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***************************************  **********.*<************ 

MATCH ,  IN=B  ,  CONTROL=A,  OUT=C  $ 

THIS  OPERATION  IS  IN  SCM'  FESPECTS  SIMILAR  TO 
COLLATE.  IN  THIS  OPERATION  THERF  IS  ONE  FILE,  A,  WHICH  IS 
TREATED  AS  A  CONTROL  FILE.  THE  GOAL  OF  THE  OPERATION  TS  TO 
RETAIN  THOSE  ROWS  OF  B  THAT  HAVE  A  LABFL  '’’HAT  MATCHES  A  LAPEL 
OP  A  ROW  OF  A,  AND,  AT  THE  SAMF  TIME,  ORDERIN'?  THOSE  POWS  OP  R 
THAT  ARE  RETAINED  IN  THE  SAME  ORDFP  AS  THEIR  MATCHING  LABELS 
OCCHRFD  IN  A. 

B  (THE  INPOT  FILE)  TS  PEAD  AND  H'LD  IN  CORE.  '’'HEN  A 
PASS  IS  MADE  THROUGH  THE  CONTROL  ETL*.  A  ROW  OF  IT  IS  READ  AND 
ITS  LABEL  IS  COMPARFD  WITH  EVERY  ROW  LABEL  OP  B  UNTIL  A 
MATCH  IS  FOUND.  THAT  ROW  OF  B  IS  WRITTEN  TO  C.  A  NEW 
ROW  OF  A  IS  READ,  AND  SO  ON.  A  ROW  0*  B  IS  ONLY  USED  CNCE 
(IP  A'1’  ALL)  . 

CONTPOL  =  NAME  OF  INPUT  CONTROL  FILE  (A)  . 

IN  =  NAME  OF  INPUT  DATA  FILF  (B) . 

OU1’’  =  NAME  0»  OUTPUT  DATA  FILE  (C)  .  THIS  WILL  CONSIST 

OF  THE  POWS  OF  B  THAT  HAVE  A  LABEL  THAT  MATCHES  A 
LABEL  OF  A,  ORDERED  BY  THE  ORDER  OF  THE  LABELS 
OF  A. 

V^PSTCN  52  -  THE  PRODUCT  NP  *  (NC*2)  OF  B  CAN  BE  UP  TO  23, ODD. 

THE  2  IN  NC  +  2  ALLOWS  ROOM  EOF.  THE  LABEL  CP  EACH  ROW. 

FOP  AN  EXAMPLE  OF  HOW  TO  USE  THIS  OFERATION,  CONSIDER  TWO  DATA  FILES... 

X  HAS  300  PEOPLE  BY  15  VARIABLES,  Y  HAS  400  PEOPLE  BY  10 
VARIABLES,  ’’’HE  VARIABLES  APE  DIFFFPENT,  AND  200  OF  THE  PECPL" 

EXIST  IN  BOTH  EIL^S.  WHAT  IS  OESTF.ED  IS  A  200  BY  25  ETLP . 

THE  FIRST  OPERATION  WOULD  PE  TO  MATCH  X,  THE  300  BY  15  FILE, 

AS  THE  CONTROL  FILF  AGAINST  Y,  THE  400  BY  10  FILE.  SINCE 
200  OP  ’’’HE  PEOPLE  MATCH,  THE  OUTPUT  FILF  (C)  WOULD  BE  OF 
ORDER  20"  BY  10.  THFSE  WOULD  BE  THE  2(0  PEOPLE  OF  Y 
WHO  WFPE  FOUND  AMONG  THE  30C  PEOPLE  IN  X.  'rHEY 

ARE  NOW  IN  THE  SAME  ORDPP  AS  THEY  OCCUR  IN  X.  NOW,  AS  A  N^W  STEP,  IF 
THIS  OUTPUT  FILE  TS  USED  AS  THE  CONTROL  FILE,  WF  MATCH  A  200  BY 
10  EILP  AS  ’’’HE  CONTROL  FILF  AGAINST  THE  30"  EY  15  FILE,  YIELDING  A  200 
BY  1*  FILE.  THFSE  TWO  FILES  ARE  ’’’HFN  MFPGED  TOGETHPR,  SINCE  THE 
SAMF  PEOPI p  ARE  IN  THE  SAMF  ORDER,  AND  A  200  BY  25  FILE  IS 
PRODUC'D.  NOTE,  IT  TOOK  '’’WO  MATCHES  AND  A  M.P'GE  TO  DO  THIS. 

***************************************  *****************  ******* 

MPRGF,  UP  =  A,  DOWN  =  B,  CUT  =  C  S 

PTIP  C  WILL  BP  T HE  ROWS  ^  A,  FOLLOWED  BY  mHF  POWS  OF  B . 

A  AND  R  MUST  HAVF  THE  SAME  NUMBFF  OF  COLUMNS.  THEIR  COLUMN  LABELS 
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MUST  MITCH  (UNIPSS  ’’’H1'  IRE  NTT  FI FF  NCMA.TCH  MAS  ALSO  USED). 

MpROF,  LWPT  =  A,  FIGHT  =  F,  OUT  =  C  * 

PILES  A  AND  R  MUST  HAVE  THr  SAME  NUMBER  OP  ROMS,  AND  THEIR 
COMBINED  COLUMNS  MUST  NOT  FXCEPD  THE  MAXIMUM  NUMBER  OF  COLUMNS 
THAT  '”Hr  SYSTEM  PERMITS.  H  E  T  R  FCW  LABELS  MUST  MATCH 

UNLESS....  MEPGE,  LEPT=A ,  PIGH^B,  OU?~C,  NOMATCH  S 

A  "’-MAY  LEFT-RIGHT  MPEG77  'rS  PCSSTBLE... 

MEPGT,  LEFT  =  A,  MIDDLE  *  B,  RIGHT  =  C,  OUT  *  D  $ 

*************************************************************** 

MUDMFNG77,  IN  «  A  /  B(  P  1-50  )  /  C  /  P,  OUT  =  E  S 

MULTIPLE  UP-DOMN  Mr RGF.  A  NUMBER  OE  FILES  (  MITH 
QUALIFICATION  P^RMI^TED  )  ARE  UP-DOMN  MERGED  TOGE'  !ER .  THE  COLUMN 
LABELS  MUST  MAmCH  UNLESS  THE  IDENTIFIER  *  NOM ATCH’  IS  USED.  THE 
I NPU'r  WTLPS  MUS'7’  PACH  HAVE  THE  SAMF  NUMBER  OP  COLUMNS. 

****************************  *****i-4  *********************  ******* 

NO. op,  IN  =  AfCI-a"),  OUT  =  P  $ 

''’HIS  IS  A  NULL  OPFRAT TON ,  IN  A  SENSE.  IT  READS  AN  INPUT 
F IT  r’  AND  PFODUCFS  AN  OUTPUT  FILF.  THE  INPU'7’  ETLF  CAN  (  AND 
FREQUENTLY  HILL  )  HAVP  QU ALLEIC ATION .  IF  ONE  HAS  A  FILE  AND 
WISHES  '”0  P^-rsOANIT*  IT  (  USING  POM,  COLUMN  AND  IF  EXPRESSIONS, 
FOR  EX»MPLF  ),  ONE  MIGHT  NO. CP  THE  FILE  AND  GET  'rHE  QUALIFIED 
FILE  AS  OUTPU"’.  THIS  COULD  EE  PRINTED  OP  SCANNED,  AND  SAVED  TO 
Er  rjcrr)  if  THF  PPTNTOUT  LOOKS  REASONABLE. 

********************************************  ****************** 

NO°M. COL,  IN  =  A,  OUT  =  5  t 

THIS  SCALES  77 A. C H  COLUMN  0”  ”Hr  TN?U'r  Ell77  SO  TH AT  'r’HE  SQUARES  OF 
THE  FLpmpn^5  IN  ’’fru  COLUMN  Op  THr  CUTPU'7’  FILE  MILL  SUM  TO  1, 

ANY  pTZp  7JILE  IS  ALLOWED. 

MISSING  DHTA  IS  NOT  MLOWpo. 

*********************  **************** ***i *************  ******** 

NORM .  FOH ,  TN  =  *,  mr  =  p  * 

THTS  SCALES  p»ou  RDM  Vv  TMr  I  NFfl'”  FTl17  SC  ’’’HA'7’  THE  SQUARES  OP  THE 
t,LFMEN'"S  IN  EACH  PnH  op  -rjip  OUTPUT  pILR  HILL  SU*  TO  1. 

ANY  S  T  ’’’ p  Fill  TS  SLIOW^D. 

missing  data  ts  >:rr  attow^p. 
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************************  *************************************** 


SCAN,  IN  ~  A,  DPS  =  D  $ 

THIS  GETS  A  DESCRIPTION  PUP  OF  THE  INPOT  FILE. 


IN  =  AN  TNPOT  DATA  FILE. 

OOT  =  A  COPY  OF  THE  ACTUAL  INPUT  FILE.  THE  US*1  OF  IN,  DES, 

AND  OUT  Will  BE  HELPFUL  WHEN  THE  INPUT  FILE  IS 
SUBSTANTIALLY  MODIFIED  BY  ROW/COL nMN/IF  PHRASES  AND  THE 
RESULT,  WITH  ITS  DESCRIPTION,  NEEDS  TO  RE  PFUS^D. 

DES  =  AN  OUTPUT  DESCRIPTION  FILE  0*  tHF  iNPut  Ell*. 

THIS  WILL  HAVE  6  COLUMNS  (MEAN,  VARIANCE,  STANDARD 
DEVIATION,  LOW,  HIGH,  AND  N) .  TT  WILL  HAVE  1  ROW  FOR 
EACH  VARIABLE  (COLUMN)  OF  THE  INPUT  FILE. 

SCAN  CAN  PE  USED,  WITH  OTHER  IDENTIFIERS,  TO  PLUG  IN  MEANS  FOR 
MISSING  DATA,  AND/OR  T0  STANDARDISE  DATA, THAT  IS,  GIVING  EACH  COLUMN  A 
MEAN  OF  EERO  AND  VARIANCE  OF  ONE.  THIS  CAN  PE  DONF  EITHER  USING  THF 
MEANS,  ETC.  OF  THE  DATA  ITSELF,  OR  ANOTHER  MATRIX  OF  MEANS  AND 
STANDARD  DEVIATIONS  CAN  BE  USED.  THUS,  IF  AN  ORIGINAL  DATA 
EILF  HAS  1,00C  CASFS  AND  MEANS  AND  STANDARD  DEVIATIONS  AFF 
COMPUTFD  ON  IT,  AND  ANOTHER  20  CASE?  APE  BROUGHT  INTO  THE 
SYSTEM  AT  A  LATER  DATE,  THOSE  20  CAPES  CAN  PE  STANDAPDTZFD, 

USING  THE  ORIGINAL  MEANS  AND  STANDARD  DEVIATIONS. 


INDES  =  NAME  OF  MATRIX  OF  MEANS,  STANDARD  DEVIATION?,  -"0  «E 
USED  IF  THIS  MATRIX  ALREADY  EXISTS  IN  THIS  SYSTEM. 

TP  NOT  USED,  THE  PROGRAM  WILL  COMPUTE  THE  MEANS,  STANDARD 
DEVIATIONS  OP  THE  DATA  MATRIX  ITSELF  AND  USF  THOSE  TO 
STANDARDIZE  IT  OP  TO  PLUG  IN  MEANS. 

MDA^A  =  NAME  FOR  OUTPUT  FILE  OF  DATA  WITH  MEANS  PLUGGED 
IN  FOR  MTSSING  SCOFFS. 


SDATA  =  NAME  FOP  STANDARDIZED  DATA  FILE. 

MISSING  SCORE?  IN  THF  IN  FILE  BECOME  ZEROS  IN  THE  SDATA 
PILE  (  IN  THE  SPIRIT  OF  PLUGGING  Mr ANS  FOP  MISSING  SCORES), 
UNLESS. , . . , 


STAYMISS,  IE  USED,  MISSING  SCOPE?  TN  ThF  • TN •  ETLF  STAY  MTSSING 
IN  THF  'SDATA*  EILF. 


******  **********************************  **  ft********************* 


SMFRGF,  A 1 1  -  A ,  A12=B,  A22  =  C,  OU^APC  $ 

THIS  OPERATION,  PYNMFTFTC  MERGE,  F r A P S  IN  A 
SYNMPTPTC  UnPEP  LEFT  MATRIX,  AN  ASYMME^PJC  UPP^P  RIGHT  M?mr>IX 
AND  A  SYMMETRIC  LOWER  RIGHT  MATRIX.  "HE  LOWER  T *FT  I?  FILLED 
TN  WITH  TH 5  TRANSPOSE  0*  THF  UEPRE  RTGHT ,  SO  ’"HAT  THF  OUTPUT  T? 
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VERSION  52  -  OUT  CANNOT  EXCELR  150  BY  150. 
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All  =  NAME  0*7  UPPER  l  EFT  SYMMFTPTC  INPUT  MATRIX  . 

A 1 2  =  NAME  OF  tmpER  RIGHT  ASYMMFTPIC  MATRIX,  WHOSE  ROW 

I.AP "IS  MATCH  THOSF  OF  All. 

A22  =  NAM17  OF  LOW FP  HIGH*  SYMMETRIC  INPUT  MATRIX,  WHOSE 

COLUMN  LABELS  MATCH  ^HOSF  OF  A12. 

ODT  =  NAM*  FOP  ^HE  OUTPUT  MATRIX. 
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**************************************** *********************** 

MULTIPLY,  PRE=A,  POST=B,  OUT=C  f 

MATRIX  MULTIPLY. 

C  =  A  TIMES  B. 

VERSION  52  -  A  CAN  BE  ANY  NT1KBFP  OF  PONS  B*  UP  ,rO  155  COLUMNS. 
B  CAN  BE  UP  to  1 50  BY  1  5rt. 

*****************************************************  ********** 

TRANSPOS,  IN  =  A,  OUT  =  B  $ 

FILW  A  IS  TRANSPOSED.  THE  RESULT  IS  NAMED  R. 

SINCE  THE  RONS  OF  IN  BECOME  THE  COLUMNS  CF  OUT ,  THE  NUMBER 
OF  ROWS  OF  IN  CANNOT  EXCFED  THF  MAXIMUM  NUMBER  OF  COLUMNS 
PERMITTED  BY  Tpr  SYSTEM. 

VERSION  5?  -  450  COLUMNS  MAXIMUM. 
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1C.  CORRELATION  OPERATIONS 

PISE*IAL 

INTCDS 

TNTMDA 

TNTMDS 

T'pm 

***********************************  ***********  ***************** 

RTSERIAL,  IN=A  ,  OUT=B,  NCV  =  12  t 

PISFPTAL  CORRELATION.  A  BISFRTAL  CORRELATION  IS 
USED  WWSV  ONE  VARIABLE  IS  DISTRIBUTED  CONTINUOUSLY  AND  THE 
OTHEP  V  AP T A  BLP  HAS  RFEN  DICHOTOMIZED  (THAT  IS,  SCOPES  APE 
EITH1715  ZERO  OP  ONE,  OP  SOME  SUCH  ARRANGEMENT). 

IN  =  NAME  OF  FILE  OF  INPUT  DATA.  IT  SHOULD  HAV? 

CONTINUOUS  VARIABLES  PRECEDING 
DICOTOMOUS  VARIABLES.  A  (C)  PHR ASF  CAN 
ACCOMPLISH  THIS,  IF  NFCESSAPY.  MISSING 
DATA  TS  ALLOWFD. 

NCV  =  NUM5FP  OF  CONTINUOUS  VAPTABLFS. 

OUT  =  NAME  FOP  RESULT.  A  PISFPIAL  COPPFLATION  MATRIX. 

ZERO  =  SUBSTITUTE  VALUE  FOP  Z^PO.  NOT  NFCFSSARY  TP  THE 

DATA  TS  TNDFED  IN  0,1  FCPM. 

HOW^v^F,  1 9  THE  DAT A  IS  FOP  EXAMPLE  IN  1,3  FOPM 
THEN  THE  VALUE  WOULD  PF  EITHER  1.  OP  3.,  DEPENDING 
UPON  WHICH  SCORE  IS  I NTFNDFD  TO  P*  REPRESENTING  THE  ABSENC 
OF  TP*  QUALITY  THAT  THE  DICHOTOMCUS  SCOPE  USUALLY  IMPLIES. 
ONE  C»N  wEVEPSF  THE  SIGN  OF  BTSEPTA L  INTEFCOPREL ATIONS 
INVOLVING  C,1  DATA  BY  SAYING  ZFRC=1. 

IF  DATA  IS  0,1  AND  7.FPC  IS  NOT  MCDIFTFD, 

A  PLUS  BTS^PIAL  SHOWS  CORRELATION  OF  HIGH 
CONTINUOUS  SCOPES  WI^H  CCCUPANCES  OF  1 • S . 

trt  output  MA"'T,T  y  tS  NPCFSSA  F  TLY  ASYMMETRIC.  Trp  CONTIN¬ 
UOUS  7 » 1 T A BLES  M TTST  ot  TN  i HE  EIFST  COLUMNS  OF  'IN*  AND  WILL  BF 
LABEI  AS  ^OWS  Op  THE  1UTPU"'.  "‘HF  r'ICHOmOMOUS  VARIABLES  WILL 
BE  LABELED  AS  mu.v  ''OLDENS  OF  TH r  OUTPU". 

VEPFTQN  b  2  -  -"HE  •’P0T'UCm  'IT  rows  AND  COLUMNS  CANNOT  EXCEED  4500. 

HDWEVEP,  ’’P5  '■'IH3  PAN  BE,  FCF  EXAMPLE,  50  BY  30,  OF  10  BY  50, 

OP  1  sr  ny  IP.  MISSING  DA*” A  IS  AILOWAET  **  IN  ANY 
V  A  P I A  n  I  t,  AND  VACU  TVDIV™nA!  PISFPIAL  C  OP”!  I  A^IO  N  IS  COMPUTED 
ON  tht  DATA  AVAILAPL-7  TO  I". 
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NMAT  -  OiJTPIIT  FI1P  SHOWING  THE  N  FOR  EACH  CORRELATION. 

CROSS  -  OUTPUT  CROSS  PRC  DUCTS  (  NOmF,  THESE  ARE  NOT 

COPRFCTED  FOR  THE  VARYING  N  IN  FACH  CELL  ). 

COV  -  OUTPUT  COVARIANCES, 

COR  -  OUTPUT  CORRELATIONS. 

ROWS  -  INPUT  VALUE  WHICH  MUST  EE  SUPPLIED.  IF  »IN*  HAS  60 
COLUMNS  AND  'ROWS  =  20*  IS  SUPPLIED, 

THE  FIRST  20  VARIABLES  OF  'IN' 

WILL  BE  CORRELATED  WITH  THE  REMAINING  40, 

CREATING  NMAT, COV,  AND  COP  OF  ORDER  20  BY  Up. 

THE  COI  '  MN  SELECTION  FEATURE  IS  USEFUL  HERE. 

NOROWl ,  SEE  INTCES 

VERSION  52  -  THE  OUTPUT  IS  NR  BY  NC ,  WHERE  N*  *  NC  CANNOT  BE 
MORE  THAN  36C9.  THUS,  30  BY  40,  OR  1  2C  BY  30,  BU”’  NOT 
70  HY  70. 

SOME  EXAMPLES... 

INTMDA,  IN*  A  (C  21-30,  51  -70),  COP=P,  ROWS=10  I 

COR  WILL  PE  10  BY  20,  CONTAINING  THE  CORRELATIONS 
OF  VARIABLES  21-30  WITH  51-70. 

INTMDA,  IN=A  (C  41-60,  41-60),  COR=B,  POWS=20  $ 

THIS  WILL  WORK.  B  WILL  BE  20  BY  20  AND  WILL 
IN  FACT  PE  SYMMFTPIC. 

INTMDA,  IN*  A  (C  21-100,  AGE)  ,  COR  =  Bf  ROWS*  80  % 

B  WILL  BE  A  VECTOR,  80  py  1,  OF  VARIABLES 
21-100  CORRELATED  WITH  VARTABLF  AGE. 

ft************************* *********  **** *******  ********-»******** 


TNTMDS,  IN  =  A,  COR  =  AIN  $ 

INTER CORRELATE,  MISSING  DATA,  SYMMFTPIC. 

VERSION  52  -  THE  INPUT  rile  CAN  HAVE  HP  t0  75  COLUMNS. 

PEARSON  PRODUCT  MOMEN"1  TNTEPCOPRFLATION,  ALLOWING 
MISSING  DATA,  PRODUCING  SYMMETRIC  OUTPUT.  FACH  CORRELATION  COEFFICIENT 
IS  PASED  UPON  THE  NUMBWP  OF  CASES  WHICH  HAD  NON-MISSING  DATA  ON  THE  TWO 
VARIABLES  REPRESENTED  IN  THAT  I  NTf  FCOFFELATTON  COEEEICI EN'. .  IN  OTHER 
WORDS,  MTSSING  DATA  IS  NOT  USED  IN  ANY  WAY,  NOP  IS  IT  ESTIMATED.  A 
CORRELATOR  MATRIX  MAY  nOSSIPLY  BE  FA*EO  U*>ON  A  DIFFERENT  *>  rOR  EACH 
ELEMENT . 

IN  =  NAME  OF  INPUT  DATA  EIlc. 
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*************  **************************  ********  *******  ********* 

INTCDS,  IN  =  A,  COP  =  P  $ 

TNTEPCOPRFLAT5,  COMPLETE  DATA,  SYMMETRIC. 

I NT^PCOP RELATIONS  (PEAPSON  PRODUCT  MOMENT) ,  EACH  INPUT 
VARIABLE  IS  CORRELATED  WITH  EACH  OTHER,  MISSING  DATA  CAUSES 
AN  EPEOR. 

IN  =  INPUT  DATA  FILE. 

CPOSS  =  NAME  FOR  CPOSSPRODUCTS. 

COV  =  NAM*  POP  COVARIANCES. 

COP  =  NAME  POP  CORRELATIONS. 

SLOPE  =  NAM*  POP  SIMPLE  BETA  WEIGHT  MATRIX.  THIS  IS  IN 
EPFECT  A  LEAST  SQUARE  SLOPE  THROUGH  '’’HE  SCATTER 
PLOT  0*  THE  TWO  VARIABLES  INVOLVED,  PREDICTING  THE 
COLUMN  VARIABLE  FROM  THE  ROW  VARIABLE. 

INCEPT  =  NAME  P0°  INTEPC*P'T'  MATRIX.  THIS  IS  '’’HE  POINT  AT 

WHICH  THE  SLOPE  WOULD  CPOSS  THE  Y  AXIS.  SLOPE  AND  INCEPT 
APE  USEFUL  IN  PRE-POST  STUDIES  *0R  GETTING  A  DEVIATION 
POST  SCOPE  (IN  OTHER  WOPDS,  OBSEPVFD  SCOP*  MINUS 
EXPECTED  SCOPE  RASFD  UPON  SIMPLE  REGRESSION). 

NOROWl  ,  IE  USED,  THIS  DIRECTS  THE  PROGRAM  NOT  TO  USE  THE  FOLLOWING 
MEAN-GUESSING  STRATEGY. 

THE  CALCULATION  OF  CROSSPPODUCTS  IN  SINGLE  PRECISION  CAN 
POSE  PROBLEMS  IF  ON*  CP  MOP*  VARIABLES  HAS  A  LARGE  MEAN 
AND  A  S* ALL  VA*IANC*.  THE  STRATEGY  USED  HERE  IS  To  TAKE 
THE  *  TP  ST  TIN-MISSING  OBSERVED  SCOP*  ON  EACH  VARIABLE 
(  FOR  TNTCDS,  THE  FIRST  ROW  0*  DA^A  ),  AND  USE  IT  AS  A 
GUESS  "*  ’’’HE  M*A N  OF  THAT  VARTABLF.  ALL  COMPUTATION  THFN 
IS  DON*  USING  DEVIATIONS  *FOM  TH*  GUFSSFD  MEAN.  VALUES 
AFFECTED  INTERNALLY  (  MEANS,  CPOSSPRODUCTS,  INTERCEPTS  ) 
AFF  FESTOP*?  TO  THFIF  opistN?i  FOFM  WHEN  PRINTFD  OR 
MPI^N  AS  AN  OUTPUT  FIl*. 

VF^SFON  c?  -  TH*  FVPn"'  *TL*  CAN  HAVE  H*  TO  ISO  COLUMNS. 

**  ****  **  **-*  ♦  a********-.'***************************************** 

TN^NDA,  tv  -  rpp  =  ACPR,  PPVS  =  $ 

I  F  P  CO  *  0  *  I.  A  T  t  r\' ,  MISSING  DAT?  AT  LOWED,  ASYMMETRIC. 

I*.'  -  TMP'!"-  DATA  PTLF. 
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NMAT  =  %'AME  FOR  THE  N  MATRIX.  THIS  IS  A  MATRIX  THAT  SHOWS 

HOW  MANY  CASES  ARE  PEPRFSFNTFD  IN  EACH  CORRELATION 
CO-EFFT CIENT.  SOME  OF  THE  INFORMATION  IN  THIS 
MATRIX  IS  PRINTED  OUT  AUTOMATICALLY  WHENEVFP  THIS 
ROUTINE  IS  USFD,  THE  FOLLOWING  ARF  PRINTED  -  MEAN, 
VARIANCE,  STANDARD  DEVIATION,  NUMBER  OF  CASES  WITH 
GOOD  DATA  ON  THAT  VARIABLE  (MAXIMUM  N) ,  AND  WORST 
CELL  IN  THAT  ROW  OF  THE  N  MATRIX  (MINIMUM  N) . 

CROSS  =  NAME  'OR  CROSSPRODUCT  MATRIX  (  NOTE,  THESF  AP '  NOT 

CORRECTED  FOR  THE  VARYING  N  IN  EACH  CELL  ). 

COV  =  NAME  FOP  CO-VAPIANCE  MATRIX. 

COR  =  NAME  POP  INTERCORRELATION  MATRIX. 

SLOPE  =  NAME  EOR  SIMPLE  BETA  MATRIX  TO  PREDICT  COLUMN 

VARIABLE  FROM  ROW  VARIABLE.  THIS  IS,  IN  EFFECT, 

THE  SLOPE  OF  A  LEAST  SQUARES  LINF  DRAWN  THPOUGH  THF 
SCATTER  PLOT  OP  THF  TWO  VARIABLES. 

TNCEPT  *  NAME  EOR  INTERCEPTS  CN  THE  Y  AXIS  OF  THF  SLOP'S  IN 
THE  PREVIOUS  MATRIX.  THESE  LAST  TWO  ARE  US'D  IN 
PRFPOST  TYPE  STUDIES  FOR  G'TTING  A  DEVIATION  POST 
SCORE  (THF  OBSERVED  PCST  SCORE  MINUS  THF  FXPFCTED 
POST  SCORE  EASED  UPCN  SIMPLE  REGRESSION). 

NOROW1,  SEE  INTCPS 

********************* ************  **  *********  ******************* 

TET,  IN  =  A,  CTFT  *  B  $ 

VERSION  52  -  THF  INPUT  FILF  CAN  HAVE  UP  TO  1U5  COLUMNS. 

THIS  DOES  A  T'TRACHORIC  CORRELATION.  THF  INPUT  FILF  SHOULD  HAVE 

DICHOTOMOUS  SCOFFS.  USUALLY  THE  SCOFFS  ARE  ZERO  V'PSUS  NON-ZERO. 

THEPE'OR  F,  THEY  DO  NOT  HAVE  TO  BE  LTTEF ALLY  ZEFO  OR  ON',  IN  FACT, 

ZERO  CAN  BE  REDEFINED  (USING  THE  IDENTIFIER  ZE'O,  BELOW)  SO  TH' 

DICOTOM  I Z  AT  ION  CAN  BE,  'OP  ALL  THE  VAPIABLFS,  ’"HU?  SCORF  VERSUS  NOT 

THAT  SCOP'.  MISSING  DATA  IS  NOT  All  OWED. 

IN  -  INPUT  DATA  PILE,  NO  MISSING  DA T A ,  IN  ZEFO  VFRSUS  NON-ZERO 
FORM  (USUAL!  Y). 

CROSS  -  CROSS  COUNT  MATRIX.  TH'  NtJM'FR  OF  ROWS  OF  »A»  tHR*  HAD 
NON-ZERO  SCOFFS  ON  BOTH  THF  VAFTABL'S  OF  A  GTV'N 
CORRELATION. 

TFT  -  TET° ACHO'IC  CORRELATIONS  O'  ML  THE  INPUT  VARIAFLFS. 

SMI*  -  SPLIT  TrST  VALUE.  IF  'TLF  •  A •  HAS  ICC  ROWS  AND  97  AP' 
ZERO  ON  A  C'RTAIN  VAFIARIE,  THAT  V  API  ABl '  HAS  A 
SPLIT  OF  .07,  AND  COR  "!  A  MON  S  INVOLVING  THAT 
VARIABLE  AR'  APT  TO  ?Y  ROOF.  TF  NO  SFLTT 
T'ST  VALU'  IS  GIV'N,  IT  T S  S'T  TO  .95.  TF  A  FTL?  IS 


(  P-ST AT  VFRSION  52.  5) 


PAGE  41 


VERY  LARGE  {  PERHAPS  20,COC  ROWS  ),  A  SPLIT  OF  ,98  WOOL!) 
BE  ALL  SIGHT,  SINCE  409  CASES  ARE  INVOLVED. 

7, FRO  -  SUBSTITUTE  VALUE  FOR  ZERO.  IF  THE  DATA  WERE  ALL  3,  4, 

AND  5,  AND  ONE  WISHED  TO  COPRELATE  4  VERSOS  3  AND  5, 

ZERO  =  4  WOULD  ACCOMPLISH  THIS. 

CTFT  -  CLEANED  UP  TFTRACHORIC  CORRELATION.  VARIABLES  WITH  BAD 
SPLITS  OR  A  CORRELATION  OF  +1 .  OR  OF  -1.  WITH  OTHER 
VARIABLES  APE  DISCARDED. 

CTET  WILL  BE  THE  SAME  AS  TFT  WITH  POSSIBLY  SOME  VARIABLES 
DROOPED.  FIRST  ALL  VARIABLES  THAT  SPLIT  WORSE  THAN  THE 
SPLIT  VALUE  ARE  DROPPED.  THEN  THE  VARIABLE  WITH  THE  HOST 
OFF-DIAGONAL  CORRELATIONS  OF  ♦1.0  OR  -1.0  IS  DROPPED, 
UNTIL  THERE  ARE  NO  OFF-DIAGONAL  CORRELATIONS  OF 
♦1.0  OF  -1.0.  THIS  CLEANING  USUALLY  PRODUCES  A  MATRIX 
THA’’’  WILL  SUPPORT  A  FACTOR  ANALYSIS  BETTER  TRAN  THE 
UNCLFANFD  VERSION. 
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11.  FACTOR  ANALYSTS 

CLEANCOP 

F.COEF 

GROUPCOR 

ITFACT 

NEWFAC 

PROM AX 

ROTATE 

************************  ***************  ************************ 

CLEANCOR,  IN  =  A,  OUT  =  8,  DELETE  =  G.15  $ 

THIS  ‘CLEaNS*  A  CORRELATION  MATRIX,  WHERE  CLEANING  IS  THE 

DISCARDING  OF  ALT  VARIABLES  WHOSF  LARGEST  ABSOLUTE  CORRELATION  (  WITH  ANY 
OTHER  VARIABLE  )  IS  NOT  ABOVE  THE  *  DELETF"*  VALUE.  IF  A  DELETE  VALUE 
IS  NOT  SUPPLIED,  THE  ONLY  VARIABLES  DELETED  WOULD  EE  THOSE  WITH  ALL 
ZERO  CORRELATIONS  WITH  THE  OTHER  VARIABLES.  THIS  CAN  OCCUR  IN  A  HISSING 
DATA  CORRELATION  SITUATION  WHEN  THE  DATA  ON  A  VARIABLE  IS  TOTALLY  HISSING. 

VERSION  52  -  THE  INPUT  HATRIX  CANNOT  EXCEED  ISO  BY  150. 

***********  ********  ************************  ***************  ***** 

E.COEE,  SDATA  =  AS,  FACTOR  =  VP,  EC  =  XS 
THIS  COMPUTES  FACTOR  COEFFICIENTS. 

SDATA  IS  A  STANDARDIZED  SCORE  HATRIX.  FACTOR  IS  A  FACTOR  MATRIX. 

THIS  PROGRAM  COMPUTES  (SDATA  TIMES  (FACTOR  TIMES  (FACTOR  TRANSPOSED 
TIMES  p ACTOR)  INVERSE)). 

VERSION  52  -  THE  FACTOR  MATRIX  CAN  BE  UP  TO  ISO  BY  50. 

SDATA  =  NAME  OF  STANDARDIZED  SCCRE  FILE  (CAN  BE  PRODUCED  BY  SCAN). 

THIS  CAN  BE  ANY  SIZF. 

IT  CAN  HAVE  MISSING  DATA,  SEF  TH*  IDENTIFIER 
•BADINPUT*  BELOW. 

FACTOR  =  NAME  0*  FACTOR  MATRIX. 

EACH  VARIABLE  IN  TH*  FACTOR  "ATPIX  ffUS"  B*  PRESENT 
IN  SDATA.  HOWEVER,  SDATA  CAN  HAVE  n*PA  COLUMNS.  IF  SO, 

THEY  AnE  NOT  USED. 

FC  a  NAME  FOP  FACTOR  COEFFICIENT  -  OUTPUT  RILE. 

THIS  WILL  HAVE  AS  MANY  *OWS  AS  SDATA, 

AND  AS  MANY  COLUMNS  AS  FACTOP. 

EACH  COEFFICIENT  WILL  PAVE  A  M*  AN  op  50.  ( SR”  P*LOW) 

AND  A  VARIANCE  OF  APCir  1. 

^HP  GENERIC  T*RM  FOp  THIS  SORT  OF  COM  PUT  ?  TI 3N  SEEMS 
TO  BE  FACTOR  SCORES.  THAT  CCMPUTA’’'  10 N  IS 
CLASSICALLY  SDATA  TIMES  "'HE  INVARS*  0?  PULL 
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CORRELATION  MATRIX  TIMES  THE  FACTORS.  THIS  INVERSE  IS 
SOMETIMES  AWKWARD  TO  GET,  AND  THE  PSEUDO-INVERSE 
PROCEDURE  IS  FREQUENTLY  USTD,  AS  IN  THIS  ROUTINE. 

IT  SHOULD  BE  NOTED  THAT  FACTOR  COEFFICIENTS 
COMPUTED  WITH  A  PSEUDO  INVERSE  ARE  ALGEBRAICALLY 
IDENTICAL  ^0  FACTOR  SCORES  COMPUTED  USING  THF 
INVFRSF  of  THF  COPRFLATION  MATRIX  WITH  THE  LAST 
USED  COMMUN ALTTIES  IN  THE  DIAGONAL. 

PM  TILT  *  NAME  for  THF  POST  MULTIPLIER  MATRIX  THAT  SDAYA  NAS  FINALLY 
MULTIPLIED  THROUGH.  IF  ADDITIONAL  DATA  IS  OBTAINED 
AND  STANDARDIZED  ACCORDING  TC  THF  ORIGINAL  MEANS 
ANT;  VARIANCES,  THEN  THAT  MATRIX  CAE  SIMPLY  BE 
MULTIPLIED  BY  THIS  MULTIPLIER  MATRIX  AND  FACTOR 
SCORES  G0TTE1  ON  THOSE  L»T?p  CASES  MUCH  AS  IF  TREY 
HAD  RFRN  IN  THE  ORIGINAL  COMPUTATION. 

MEAN  =  A  CONSTANT  WHICH  IS  ADDED  TO  EACH  FACTOR  SCORE  WHEN  IT  IS 
COMPUTED,  NORMALLY  THIS  IS  NOT  USFD  AND  SO  IS  USED  bY 
THF  PROGRAM  SO  THA'*’  IT  IS  I.IKFLY  THAT  ALL  THE  FACTOR 
COEFFICIENTS  WILL  BE  POSITIVE.  HOWEVER,  CNE  MAY  WILH 
TO  USE  SO"E  VALUE  OTHER  IRAN  SO  (  FOR  EXAMPLE,  LERO)  . 

RADINPir  =  • MEAN* ,  *  MISSING’  OF  •USEGCOC*. 

IF  MISSING  DATA  IT  FCUND  IN  SDATA  AND  THIS  IDENTIFIER  WAS 
NOT  USED,  THF  OPFRATICN  ABORTS  WITH  AN  ERFOR  MESSAGF. 

THESE  ^ HREF  OPTIONS  ALLOW  ALTERNAT*  ACTIONS. 

HA  DIN PUT  ~  MEAN.  AN  INPUT  ROW  WITH  MISSING  DATA  WILL  HAVE 

ALL  OF  ITS  OUTPUT  SCOPES  Sft  I’O  ’30  (  cEi?  'MEAN-*  ). 

HADINPUT  *  MISSING.  ALL  SCOPES  tr  THE  OUTPUT  ROW  ARE  SET 

"C  BE  MISSING. 

HADINPUT  =  USFGOOD,  '  MISS TNG  INPUT  SCOPE  TS  SKIPPED. 

OUTPUT1  SCORES  ARE  CCMPO'EP  USING  ALL  AVAILA3LF  NON-MISSING 
INPUT  SCOFFS. 


********  *■*>**■*'*«<******%**•*♦*.»*********»*+**'****  +  ■'*♦***  ********  +  * 


GROUPC^R,  IVCOP=A,  INt’AC  =  AF,  O'TTC0P  =  Gf.,  DU'rEAC=GF  S 

THIS  fpofgANTZFS  A  COR  EEL?  ^ TON  MATRIX  AND  A  FACTOR 
MATRIX  n®  tt  fnp  op  t?)  ACCORDING  TO  ?FW  PATTERN  OF  FACTOR 

LOAFING'-.  TH17  TNP'r  TS  A  CO^FLA^ION  m ftTnx  x  ASP  t.  FACTOF 
MATRIX.  TIP  FAC  for  **P*TX  CAN  HAVE  »2VE®  ROWS  (VARIABLES)  THAN 
THE  COP?  hla^ION  MA  "pIV  ,  BUT  ALT.  VARIABLES  0*  mHF  rACTOp  MATRIX 
NIPT  HAVE  A  M8TCHt*’G  ROW  LABEL  IN  "’HE  CORRELATION  MATRIX. 

A  FrroUENTTY  US?r>  c'r0'>"’I('T  IS... 

T<r>r>n(~^f  pp,*‘ ATP ,  n*vvin.-p^  AND  °TdTNt. 

Vfrhcs  S">  -  I N c ° r  TAN  ”  1/0  rY  1  ?r  ,  T«RAr  CAN  pt*  IRC.  PY  20. 
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TNCOR  =  INp'JT  CORRELATION  MATRIX  NAME. 

TN7AC  =  INPUT  FACTOR  MATRIX  NAME. 

OfJTCOR  =  OUTPUT  CORRFLA '’’ION  MATPIX  NAM11’.  THF  FIRST  GROUP  OF 

VARIABLES  HAD  ABSOLUTE  FACTOR  LOADINGS  HIGHER  ON 
FACTOR  ONE  THAN  ANY  OTHER,  AND  SO  FORTH. 

OUTFAC=  OUTPUT  FACTOR  MATRIX  NAME,  REORDERED. 

*******************  ******************************************** 

ITFACT,  IN  =  A,  S F  =  R  $ 

VERSION  52  -  IN  CAN  BE  120  BY  120. 

THIS  DOES  AN  ITERATIVE  FACTOR  ANALYSIS  ON  INPUT  ”TLE 
'A'  (  PROBABLY  A  CORRELATION  MATRIX  ).  THE  EXAMPLE  SHOWS  A 
SIMPLE  RUN,  JUST  GETTING  A  SIGNIFICANT  FACTOR  MATRIX  OUT. 

IT  REFACTORS  A  NUMBER  OF  TIMES,  FI^ST  UNTIL  THE  NUMBER  OF 
SIGNIFICANT  ROOTS  HAS  BEEN  DECIDED,  AND  THEN  UNTIL  THE  DIAGONAL 
ESTIMATE  STABILISES,  THIS  OCCURS  WHEN  THE  SUM  OF  SQUARES  OF  THE 
FACTOR  LOADINGS  FOP  A  VARIABLE  IS  WITHIN,  FOR  EXAMPLE,  0.02  OF  THE 
DIAGOF-.L  VALUE  IN  THE  PA-C^OPED  CORRELATION  MATRIX .  (THAT  DIAGONAL 
VALUE  IS  THE  SUM  OF  SQUARES  OE  THE  PREVIOUS  FACTOR  LOADINGS) . 

THE  OPERATION  'CLEANCOP*  IS  SOMETIMES  USED  TO  PROVIDE  THE 
INPUT  TO  IT*ACT. 

THIS  IS  THE  COMPLETE  SET  OF  OPTIONS.  IN,  ROOTS,  S17,  AND  N FAC 
ARE  THE  MOST  FREQUENTLY  USED. 

IN  =  J17  OE  INPUT,  SQUARE,  SYMMETRIC. 

ROOTS  ~  OUTPUT  FILE,  NV  BY  3  (WHEPE  NV  IS  THE  SIZE  OE  IN), 

THE  COLUMNS  AFE-  ROOTS,  STARTING  DIAGONAL,  AND 
FINAL  DIAGONAL. 

VEC  =  OUTPUT  VECTORS,  NV  BY  NV.  THE  riDST  COLUMN  IS  THE  VECTOR 
ASSOCIATED  WITH  THE  LARGEST  FOOT,  ETC, 

RAC  =  OUTPUT  FACTORS,  NV  BY  NUMBER  C?  POSITIVE  ROOTS. 

S’7  =  OUTPUT  SIGNIFICANT  PACTCPS.  tHIS  tS  THr  OUTPUT 
THAT  IS  USUALIY  ROTAT^n,  it  IS  NV  BY  N  'J  H  n  o  R  OF 
SIGNIFICANT  roots.  THF  CONT£NtS  oE  ITS  COLUMNS  *RF  THE 
S  AM  F  AS  THOSE  0?  FAC,  PUT  USUALIY  IT  HAS  F^WER  COLUMNS. 

DROr'"’  -  OUTPUT  '•IL17,  NV  H Y  NV,  A  DIAGONAL  MATRIX  WITH  TH17 

ROOTS  TN  the  DIAGONAL,  IV  DECREASING  ALGEBRAIC  ORDER. 

ALL  OEF-DIAGON»L  VALUES  A  Dr  Z^F.OS. 

=  INPUT  VALU*,  D?T17R»'TNING  HOW  STABLE  THF  DIAGONAL 
NEEDS  *0  B*  BEFORE  TH r  PROGRAM  EINL3HF*.  IE  N0T  SET 


♦J*  T?C*  *** 
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ON  THF  CARO  (AND  TT  USUALLY  IS  ROT)  TBF  PROGRAM  USES  0.02  . 
THF  RON  KEEPS  REFACTOR!  NG  UNTIL  NO  DIAGONAL 
FLE  MEN”’  CHANGES  RY  MORE  THAN  THIS  VALUE. 

IP  tH'F p  ARE  MOPE  THAN  15  ITERATIONS  OR  IF 
A  DIAGONAL  ELEMENT  CLIMPS  CVFR  1.UC,  THF  ITERATION 
FINISHES ,  THIS  MAY  HAPPEN  WHEN  THERE  IS  LINEAR  DEPENDENCE 
AMONG  THF  VARIABLES.  IF  THF  USER  INSERTS  A  VERY  LARGE 
VALUE  FOR  TEST,  THE  PPCGRAM  HILL  NOT  ITERATF. 

NFAC  "  INPUT  VALUE.  "HI S  TFLLS  THE  PROGRAM  HOH  MANY 
COLUMNS  SF  SHOULD  HAVF  (I.E.,  HOH  MANY  ROOTS 
ARF  SIGNIFICANT).  IF  NOT  SUPPLIED,  THE  PROGRAM 
TRIES  TO  DECIDE. 

"HE  USE  OF  •  NFAC=0  *  IS  THE  SAME  AS  NOT  USING  NFAC  AT 
ALL.  THIS  MAY  OCCUR  IN  A  MACRO  EXPANSION.  SOMETIMES  A 
SPECIFIC  NUMRFF  0*  ROOTS  IS  HANTED  AND  A  NUMBEP  LIKE  7  IS 
PASSED,  SOMFTTMES  THF  USFP  HANTS  THE  PROGRAM  TO  DECIDE, 

SO  HE  PASSES  A  ZFPO. 

A  VFPY  SIMPLF  DECISION  RULE  IS  BEING  USED.  AFTER  EACH  OP 
THE  FIRST  'TVF  ITEPATIONS  (  IF  I"  GO'S  THAT  EAR  )  THE 
LARGEST  GAP  BETWEEN  THE  POOTS  IN  "HF  1.1  TO  0.7  RANGE 
DEFINES  THP  CUTOF'  EFTHFFN  SIGNIFICANT  AND  NON-SIGNIFICANT 
ROOD'S.  THF  FIRST  GAP  TFSTED  IS  PETHEFN  THE  SMALLEST  ROOT 
OVER  1.1  AND  "HE  LARGEST  ROOT  LESS  THAN  1.1  .  THF  LAST 
GAP  IS  BETWEEN  THE  ?  SMALLEST  POOTS  LAPG'R  THAN  0.7  . 

THEN  "HE  FACTORS  OF  "HOS'  SIGNIFICANT  POOTS  ARF  USED  TO 
RE-ESTIMATE  THF  DIAGONAL,  AND  SO  ON  'OR  5  ITERATIONS. 

CNF  OF  THF  FOLLOWING  "HRFF  "PENT  tFIFRS  MAY  BF  USED. 

I?  NONE  IS  US'D,  THE  INPUT  DIAGONAL  IS  USFD  AS  IS  FOP  TH' 

'T?S"  FACTORING. 

CNF,  THIS  STTS  "HE  DIAGONAI  CF  "HE  INPT»T  TO  1. 

7,'RO,  THIS  S'TS  "Hr  DIAGONAL  0"  THF  INPUT  TO  r, 

LARI',  EACH  INPUT  DIAGONAL  VALUE  IS  SET  TO  "Hr’  LARGEST 

ABSOLUTE  SCOP'  IN  ITS  PCW  AND  COLUMN. 

"HF  PROGRAM  QUIDS...  1-  T'  THF  LAFG'ST  DIAGONAL 
CHANGE  IS  L'SS  "HAN  0.02  (OP  "HE  *"FST='  VALUF, 

T!  SUPPLT'P),  2-  TF  1c  ITFPATTONS  HAVE  PE'N 
PON',  0 P  1-  IE  ANY  DIAGONAL  HAS  CLIMPFD  OVFP  1.0 
HFFN  IT  IS  DOVE,  THE  PROGRAM  USES  THE  V'C"ORS  AND 
RO 0"S  "0  R'C'F*."'  "HF  INPUT  HATRIX,  AND  TU'  LARGEST 
RRPOR  TS  orpnoTt-n.  A  ?'T-DTA0PNAI IZA"ION  POnTINE 
IS  USED  H"'.  I"  ID  »  SLIGHTLY  MODIFIED  VERSION 
OF  SUAE'  B  j> r* 2  —  ^  1  DrTp.MTT-T-pn  py  p  ,  p.  'UNPE'LIC  AND 
y,  '  T,  S  O  f!  05  UNION  CARF1DF  ?"  °A  K  PIDGF,  TFNN. 
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**************  **********  ***********  ************  **************** 

NFWFAC,  INCOR=A ,  INFAC=B,  OTJT FA C=  C  $ 

CORRELATION  MATRIX  A  HAS  NR  I  VAEIABL^S,  SOM11' 

OF  WHICH  WERE  FACTORED.  FACTOR  MATPIX  B  HAS  THESE  FACTOR 
LOADINGS.  THIS  PROGRAM  WILL  TAKE  THE  EXTRA  VARIABLES  IN  A 
(BUT  NOT  IN  B)  AND  SOLVE  A  LEAST  SQUARES  ESTIMATE  FOP  FACTOR 
LOADINGS  ON  THESE  ADDITIONAL  VPRIABLFS.  THFSE  N*W  FACTOR 
LOADINGS  ARE  MERGED  ONTO  tPE  BOTTCM  OF  B  t0  CREATE  mHE  OUTPUT 
FACTOR  MATRIX.  THE  VARIABIES  IN  B  CAN  BE  ANYWHERE  IN  A ,  IN 
ANY  ORDER. 

VERSION  52  -  INCOR  CAN  BF  120  BY  120,  INFAC  CAN  BE  12r  BY  20. 

INCOR  =  NAME  OF  INPUT  CORRELATION  MATRIX 

INFAC  =  NAME  OF  INPUT  FACTOP  MATRIX 

OUTFAC=  NAME  FOR  OUTPUT  EXTENDED  FACTOR  MATRIX. 

*********************************************************  ****<i4i 

PROMAX,  INFAC=A,  OUTFAC=B,  COF=C  $ 

THIS  DOES  AN  OBLIQUE  FACTOP  ROTATION.  GIVEN 
INPUT  FACTOR  MATPIX  A,  IT  CREATES  Y  BY  RAISING 
EACH  ELEMENT  OF  A  TO  A  POWER  AND  THEN  RESTORING  THE  ORIGINAL 
SIGN.  THEN  AX  =  Y  IS  PFP  FOP  MFD ,  SOL  VI NG  *OR  X,  A  LEAST  SQUARFS 
SOLUTION.  X  =  (  A  TP  *  A  )INV  *  A  TR  *  Y.  COLUMNS  OF  X  AR* 

THEN  NORMALIZED,  AND  THE  PPOMAX  FACTORS  (B)  APF  A  *  NORMALIZED  X. 

VERSION  52  -  THE  INPUT  FACTORS  CAN  BF  UP  TO  150  BY  RO . 

A  SEP  A  PAT17  POWER  IS  COMPUTED  *OR  p  A  CH 
COLUMN.  THIS  IS  NUMBER  0*  ROWS  *  (  SUM  OF  HTH 
POWFcS  DF  THE  MEAN  DEVIATION  OF  TH?  ELEMENTS  OF  THE 
COLUMN  /  SUM  OF  SQUARES,  SQUARED  ). 

INFAC  =  NAME  OF  INPUT  FACTOPS. 

OUTFAC=  NAME  FOR  OUTPUT  PROMAX  FACTORS, 

COR  =  NAME  FOR  NC  BY  NC  MfTpix  OF  COPFILATICNS  OF  FACTORS, 

WHERE  NC  IS  the  NUMBER  CF  COLUMNS  OF  INFAC. 

TRANS  =  NAME  FOR  TR ANSFOP MATICN  MATRIX. 

COSINE  NAME  for  COSINES. 

*********************************  *************  a*  *************** 

ROTATE ,  TN  =  SF,  V*  =  VFAC  « 

THIS  PPOSPAM  DOFS  ORTHOGONAL  POTATIONS  CN  AN  INPUT  MATRIX.  I'1'  WILL 
DO  A  QUARTIMAX,  V r R I M A X ,  OP  EQUAMAX  ROTATION.  THF  POTATION 
SUBROUTINE  IS  A  DESCENDANT  OF  ^ HE  PT"D  VF.PTMAX  PROGRAM. 

TW?  FOWS  OF  THE  MATRIX  APE  FT  rST  NOrMALIZED  SO  'THAT  T!!  ^  GUN 
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OP  SQUAPFS  OF  EACH  POW  EQUALS  CNF.  THE  VARIANCE  OF  THE  SQUARFD 
ELEMENTS  IN  EACH  COLUMN  IS  COMPUTED  AND  THE  SUM  OF  THOSE 
VARIANCES,  ONE  FOR  EACH  COLUMN,  IS  SAVFD.  ONE  ROTATION  CYCLE 
IS  THEN  PERFORMED.  A  NEW  SUM  OF  VARIANCES  IS  COMPUTED  AND  IS 
COMPARED  AGAINST  THF  PREVIOUS  SUM  OF  VARIANCES.  THE  SUBROUTINE 
RETURNS  WHEN  THE  DIFFERENCE  OF  THOSE  SUMS  OF  VARIANCES  IS  LESS 
THAN  0.P0P1  ON  THR*?  DIFFERENT  (NOT  NECESSARILY  SUCCESSIVE) 
ITERATIONS.  THE  SUBROUTINE  Will  ALSO  RETURN  IE  IE  ITERATIONS 
HAVE  BEEN  PERFORMED,  NO  MATTER  WHAT  THE  CONVERGENCE  SITUATION 
IS.  A  RECORD  OP  'rHE  VARIANCES  DUPING  THE  ROTATION  IS  PRTNTED 
UPON  RETURN  TO  THF  MAIN  PROGRAM.  WHEN  THE 

ROTATION  IS  FINISHED,  THE  COLUMNS  ARE  ORDERED  ACCORDING  TO 
DECREASING  SUM  OF  SQUARES  OF  El F ME NT S  IN  THEM. 

QF,  V*,  EE,  APE  IDENTIFIERS  FOR  QUAPTTM  AX,  VERIMAY,  AND 
EQUIMAX  FACTOR  OUTPUT. 

Q?P ,  VTR ,  AND  FTP  °ROVIDE  THF  TP ANS FOR M ATION  MATRICES. 

VISION  52  -  THF  INPUT  FILF  CAN  BE  UP  TO  20C  EY  50. 
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12.  CROSS- TABULATION  (  CROSSTAB  ) 

***********************  **********  ****************************** 

CROSSTAB,  IN  =  A  $ 

X  YYCC  C 
♦END 

CROSSTAB,  IN  =  A,  VAR  =  AGE/EDUC  3 

IN  ITS  SIMPLEST  FORM,  THIS  PROGRAM  PRODUCFS  TABLES  WI^H  N'S  (NUMBER 
OF  CASES)  IN  EACH  CEL!.  THE  SUMMARY  STATISTICS  AFE  TOTAL  N,  M*ANS, 
STANDARD  DEVIATIONS  AND  A  CHI  SQUARE.  THREE  VARIETIES  OF  PFRCENT 
TABLES  CAN  ALSO  BE  OBTAINED,  THE  PEFCENT  THAT  FACH  CPLL  IS  IN  RELATION 
TO  1)  ITS  COLUMN,  2)  ITS  FOH,  3)  THE  TOTAL  N.  TABLES  OF  MEAN  SCORFS 
ON  UP  TO  Tffl  OTHER  VARIABLES  CAN  PE  OBTAINED.  ANY  OR  ALL  OF  THESE 
TYPES  OF  TABLES  CAN  BE  PRODUCED  IN  A  SINGLE  RUN. 

VARIABLES  TO  BE  CROSSTABBEP  SHOULD  PE  CODED  SO  THA'  THE  ROW  VARIABLE 
RANGE  IS  BETWEEN  0  AND  19,  AND  THE  COLUMN  VARIABLE  RANGE  IS  BETWEEN 
0  AND  9.  SCORES  OUTSIDE  THESE  RANGES  WILL  RE  IGNCPED.  NON-INTEGER 
SCORES  APE  TPUNCATED,  ®OR  FXAMPL®,  7.9  BECOMES  7  .  THE  RFCODE 
AND  NCOT  FEATURES  IN  THE  FOR/IF/SFT  STATEMENTS  ARF  LIKFLY  TO  BE 
USEFUL  HERE. 

ANY  NUMBER  OF  TABLES  CAN  RE  ASKED  FO®. 

VERSION  52  -  ONE  PASS  THROUGH  THE  INPUT  FILE  WILL  BE  DONE  FOR  FACH 
80  TABLES.  IF  MEANS  ON  THIRD  VARIABLES  ARE  REQUESTED,  ON*  PASS  WILL 
BE  MADE  FOP  EVERY  40  'N'  TABLES.  THE  PROGRAM  WILL  MAKE  AS  MANY  PASSES 
THROUGH  THF  INPUT  FILE  AS  APE  NECESSARY  TO  PRODUCE  ALL  THE  REQUESTED 
TABLFS. 

KEYWORDS  TELL  THE  PROGRAM  ABOUT  THF  INPUT  ^IL17  AND  WHAT  TYP*  OF 
CROSSTAB  IS  DESIRED. 

IN  =  NAME  OF  INPUT  PILE,  iP  TO  45®  COLUMNS. 

MASK  CARDS  (I.E.,  X  YYCC  C) 

MASK  CAPPS  APE  READ  IN  50P.1  FORMAT.  THER17  MUST  B*  ENOUGH  "ASK  CARDS 
TO  TAKE  CAPE  OF  ALL  THE  CURRENT  VARIABIES  IN  the  INPUT  FILE.  A  EILF 
WITH  70  VARIABLES  WILL  NEED  2  CARDS  -  THF  FIRST  TO  MASK  VARIABLES 
1-50,  THE  SECOND  ^0  MASK  VARIABLES  51-70.  I E G A L  CHARACTERS  A®E 
BLANK,  X, Y,  OR  C.  A  MASK  CARD  WITH  X  IN  COLUMN  2,  Y  IN  COLUMNS  4  AND 
5,  AND  r  IN  COLUMNS  6,  7,  R  WOULD  INSTRUCT  T Hp  P»CGPA"  "O  DO  CROSSTABS 
OF  THE  2ND  VARIABLE  (X)  IN  THE  FILE,  BY  TH®  U^H  AND  5 TH  VARIABLES 
(THE  2  Y*S),  AND  ALSO  AIL  POSSIBLE  COMBINATIONS  OF  VARIABLES  5,  7,  AND 
9  (THE  C'S).  NUMERIC  ROW  AND  COLUMN  LABELS  ARE  G  FNERATEP .  IN  OTHEP 
WORDS,  EACH  X  VARIABLE  IS  Ct<OSSTAFPFD  A.  GAIN  ST  ®ACH  Y  VARIABLE. 

EACH  C  VARIABLE  IS  CROSSTABBEP  AGAINST  'AC!!  O^HEP  C  VARIABLE 
(ONLY  ONCE  POP  EACU  PAT®).  AI>ND  MUST  rOLLOW  mH E  L A ST  SUCH  CARD. 
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VAR  =  IF  THIS  OPTION  IS  USFD  THERE  MOST  BE  AT  LEAST  TWO 

A  RGUMENTS ,  I.E.,  VAR  =  AGE/EDOC.  THE  FIRST 
ARGUMENT  (AGE)  HILL  BE  THE  ROW  VARIABLE.  THE  SECOND 
ARGUMENT  (EDUC)  WILL  BE  ^HE  COLUMN  VARIABLF. 

•VAR  =  •  MAY  HAVE  MOPE  THAN  TWO  ARGUMENTS.  T.P.,  VAR=AGE/EDUC/REGION/3/ 
6,  HILL  PRODUCE  A  CROSSTAB  OF  AGF  BY  EDUC  FOR  VALUES  ON  THE  VARIABLE 
REGION  OF  3,  THFN  4,  5,  AND  6.  VAR  =  AGE/S EX/INCOME/70/75/EDUC/0/2 , 
HILL  PRODUCE  A  CROSSTAB  OF  AGE  BY  SEX  FOR  EACH  COMBINATION  OF  INCOME 
(70,71,72,73,74,7*)  py  FDUC  (0,1,?).  THIS  CAN  RAPIDLY  PRODUCE  MANY 
TABLES.  THIS  LAST  EXAMPLE  WOULD  PPCDUCF  19  CABLES  (6*3  PLUS  A  TABLE 
FOR  AG*  BY  EDUCATION. 

CONTROLS,  IF  THIS  IS  USED  THE  'VAR=«  OPTION  MUST  ALSO  BE  USED.  IT 

TELLS  THE  PROGRAM  TO  READ  CARDS  FURTHER  DEFINING  THE 
TABLFS.  THERE  APF  TWC  TYPFS  0?  CONTROLS.  ONE  TYPE  OF 
CONTROLS  DEFINES  A  SUBSET  EOR  EACH  TABLE  WITH  THE  ROW 
AND  COLUMN  VARIABLES  DEFINED  BY  THE  'VA*®'  OPTION. 

THE  SECOND  TYPE  IS  THF  MASK  CARDS  EXPLAINED  ABOVE.  IF 
MASK  CARDS  APE  USFE  BY  THFMSELVFS  'CONTROLS'  IS  NOT 
NECESSARY.  IF  MASK  CARDS  A*E  USFD  TN  ADDITION  TO  tHt? 

•  VAR® '  OPTION,  CONTROLS  MUST  pr  USED  OR  TH*  MASK  CARDS 
WILL  NOT  BE  READ  BY  THE  PROGRAM. 

SUBSET  DEFINITION  CARDS 

ROW  AND  COLUMN  VARIABLES  ARE  DESIGNATED  BY  USING  THF  'VAR  =•  OPTION. 
n’HE  ROWS  To  PE  SELECTED  POP  EACH  ?AFl?  APE  DEFINED  BY  THEIR  SCORES 
ON  np  "•O  6  DIFFERENT  VARIABLES.  THE  FIRST  CARD  FOR  EACH  TABLE  CONTAINS 
IN  COLUMNS  1-5  TH*  WORD  'CARDS'  AND  IN  COLUMN  10  THE  NUMBER  OF  CARDS 
THE  PROGRAM  MUST  D  E  AD  T0  DEFINE  TH*  TAPLF  (  1  -  6  )  .  COLUMNS  11-50 
MAY  B  *  USED  FOP  A  HEADING  FOR  THE  TABLE.  THIS  CARD  IS  FOLLOWED  BY 
PROM  1  TO  *  CARDS  CONTAINING  THE  VARIABLF  NAME  TN  COLUMNS  1-8,  LOW 
SCORE  IN  COLUMNS  11-20  AND  HIGH  SCOPE  IN  COLUMNS  21-30.  THESE  SCORES 
APE  P^AD  IN  ?10.n  MAm.  A  ROW  IS  USED  IN  the  TAPL*  IF  ITS  SCORES  ON 
ALL  th*-  CONDITIONAL  VARIABLES  APE  NCm  MISSING  AND  NOT  BEYOND  THE  LOW 
AND  HIGH  RANGE. 

**ND  MUST  '’OLLOW  rrH*  LAST  CONTROL  CA*D  (IF  ANY  ARE  USFD  AT  ALL).  MASK 
CARDS  AND  SUBSET  "VP*  CARDS  MAY  FF  USED  I*  p^ME  RUN  TN  ANY  ORDEP. 

OPTT 0 Nf  I.  KrYWOFDS 

MEANS  =  IT-”,  THIR  r'^OVTC^  TH r  N  A  M  FS  op  VARIABLES  *OP  WHTCH  MEANS 
AP*  TO  R"  PRODUCER.  I.*.,  ME  ANS  -  INCOME,  THE  MEAN 
SCO*T’  ON  THF'  VADTAFIr  LA  F  *T l*  D  INCOME,  WILL  BE  GIVEN 
FOR  EVERY  C  El  I  IN  *V"rY  O^n^TAR,  M*ANS  =  TNCOM*/ 

wilt  RRfruc*  M*AN  SCORES  FOR  THE  VARIABLES 
I  *  P"7 LL*o  TVCOMF  AND  AG^MAPEY. 

rums  -  '  ST,  I T  K  ^  "invs'  *YCrr,T  TH*  rUM  OF  "H  *  SoC**S  IS  CALCULATED. 


-ryt*  ■ 
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COLPCT,  PRODUCE?  THE  PFRCENT  THAm  EACH  CFLL  IS  OF  ITS  COLUMN. 

CUMCOL,  THE  COLUMN  PERCENTS  WILL  BE  CUMULATIVE. 

ROWPCT,  PRODUCES  THE  PERCENT  THAT  EACH  CELL  IS  OF  ITS  ROW. 

CUMROW,  THE  ROW  PERCENTS  WILL  BE  CUMULATIVE. 

TOTPCT,  PRODUCES  THE  PERCENT  THAT  EACH  CELL  IS  OF  THE  TO^AL  N. 

LABELS  =  N/N/N/N,  IF  THIS  OPTION  IS  USED  THE  PROGRAM  WILL  READ  ONE  SET 
OP  ROW  AND  COLUMN  LABFI.S.  THF  ROW  I  ABELS  COME  ’’TRST  IN 
CARD  COLUMNS  1-8,  11-18,  21-28,....,  71-78.  IF  THE  FIRST 
ROW  VARIABLE  IS  CODED  1-1U,  2  CARDS  WILL  BE  READ  FOR 
LABELS.  COLUMN  LABFLS  FOILOW  IN  TH  F  SAME  FORMAT  AND 
START  WITH  A  NEW  CARD.  THESE  CARDS  MUST  FOILOW  THE 
CROSSTAB  CARD  AND  PRECEDE  ANY  CONTROL  CARDS.  THIS 
OPTION  WILL  PROBABLY  PE  USED  ONLY  WHEN  thf  "VAR  =•  OPTION 
IS  USED.  LABFLS  =  1/7/2/5,  WILL  INSTRUCT  THE  PROGRAM  TO 
FEAD  LABELS  FOR  SCOPES  ON  THE  ROW  VARIABLE  BETWEEN  1 
AND  7  AND  FOP  SCOFFS  ON  ’rPF  COLUMN  VARIAPLF  BFTWEEN 
2  AND  5.  NOTE...  THESE  LABFLS  DO  NOT  NFFP  TO  CONFORM  TO 
THE  P-STAT  RULES  FOR  NAMES  AND  LABELS. 

COMBOS,  USEFUL  ONLY  WHEN  3  OR  4  VARIABLES  APE  ARGUMENTS  IN  THE 

•VAP=*  OPTION.  TABLES  FOP  THE  RANGE  OF  THF  THIRD 
VARIABLE  FOR  PACH  LEVEL  OF  THF  FOURTH  VARIABLE  AND  FOR 
THE  RANGE  OF  THE  FOUP'iH  VARIABLE  FOR  EACH  LFV2L  OF  THE 
THIRD  VARIABLE  WILL  BE  GENERATED. 

WEIGHT  =  V,  THE  TABLES  WILL  BE  WEIGHTED  USING  THE  VALUE  OF 
VARIABLE  V. 

PZ,  USUALLY  A  CELL  IN  THE  PRINTOUT  WILL  BE  BLANK  IF  THE  N  IS 

ZERO.  IE  PZ  IS  USET,  THF  ZEROS  WILL  BE  PRINTED  OUT. 

EXAMPLES . 


CROSSTAB,  IN=RD#  VAR*  AGE/FDUC  S 

THIS  WILL  PRODUCE  1  CROSSTAB  OF  THr  VARIABLE  LABELLED  AGF  BY  THE 
VARIABLE  LABELED  FDUC. 


CROSSTAB,  IN  =  A  $ 

XXXYY  CCCXYCCXCY 
*FND 

THIS  WILL  PRODUCE  3?  TA^LFS.  1  FOR  *ACH  X  AGAINST  FAC!!  Y  AND  1  FOP 
ALL  THE  COMBINATIONS  OF  C'S. 
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CPOSSTAB ,  IN  =  A,  VAR  =  AGF/FDUC,  CONTROLS  $ 

CARDS  2  CATHOLICS  EARNING  ONDFP  5,000 

RFLTGW  1.  2. 

INCOME  1. 

♦  END 

THIS  WILL  PRODUCF  2  TABLES,  THE  ROW  VARIABLE  ‘AGE1  BY  THE  COLUMN 
VARIABLE  'FDUO  *OR  THE  TOTAL  SAMPLE  AND  THEN  FOR  THOSE  POWS  WITH 
SCOFFS  BETWEEN  1  AND  2  ON  THE  VARIABLE  LABELLED  ' RFLIGW '  AND  BETWEEN 
1  AND  5  ON  ’’’HE  VARIABLE  LABELLED  ‘INCOME*. 


CROSSTAB,  IN  =  X,  V AR  =  AGF/EDUC/R FG I ON/ 1/4,  LABELS  =  1/5/1/4  $ 

UVDEP  18  18-25  26-35  36-45  46-55 

COLLEGE  H.S.  4  H.S.  1-3  ELEMSCH 

5  TABLES  OF  NS  WILL  BE  PRODOCED.  1  EOF  THO  SE  WITH  GOOD  SCORES  ON  AGE 
AND  EDUC  AND  1  TABLE  FOR  EACH  LEVEL  (  1,2, 3, 4  )  OF  REGION.  5  LABELS 
WILL  =>?  PpAD  FOR  THE  ROW  VARIABLF  {  AGE  )  AND  4  LABELS  FOP  THF  COLUMN 
VARIABLE  (  EDUC  )  . 


CFOSSTAB ,  IN  -  PAWRATA,  VAR  =  AGE/SFX,  CONTROLS,  MEANS  =  INCOMES 
CAPDS  1  COLLEGE  EDUCATED  WOMEN 

Ennc  0.  1. 

CARDS  3  SOUTHERN  FARMERS  UNDER  45 

PFGTON  R.  ?. 

OCCUPTON  5.  5. 

AGE  1.  u, 

CCCO 

*FND 

’’’HIS  WILL  PRODUCE  9  N  TABLES,  1)  "'H E  RAW  VAPI.ABLE  ‘AGE’  BY  THE  COLUMN 
VARIABLE  ‘S^X*,  2)  ‘AS™  BY  •  Sp  T  •  FOP  COLLEGE  EDUCATED  WOMEN, 

3)  • AG r ‘  BY  ‘SEX'  wOP  SOUTHERN  FARMERS  UNDER  45,  *ND  4)  ,  *  N  TABLES  FOR 

THE  COMBT  NATIONS  op  V  A  RI  APT  ES  1-4.  THF  MFAN  SCOPES  FOR  ’’’HE  VARIABLE 
INCOME  WILL  ALSO  3*  INCLUDED  IN  EACH  OF  mHFSr  N  TABLES. 


^OCETAR,  IN  =  YI,  VAB  =  rPUC/'5PLIGW/AGE/o/U/OCCUP/1/4,  COMBOS, 
"•FANS  *  TNCOM^/NCHILP,  POWPC"',  'rO’’TC?  S 

THIS  WT L I  PRODt'C*  MANY  ?»GES  op  r 1  ° F B ,  rDUC  AND  RFLTGW  «IlL  RE  THE  ROW 
AND  COLUMN  VAPIAPLrS.  SINCE  LAPEIS  WERE  NOT  R^QUESTE",  NUMERIC  LAPFLS 
WILL  GENERATED.  AN  v  T A B L s’  WILL  BE  PRODUCED  POP  THF  OVERALL  SAMPLE, 

AND  FOB  P ACH  COMBINATION  op  sCOV?r  ON  AGr  Br-'W^^N  0  AND  4  AND 

OCCHP  r»PT«ypT7«j  1  j‘iD  u  (PQ"  POMS  WITH  No  v  -  *T  p  s  J  VO  SCOPES  ON  THE  VARIABLF 
TNCOr^)  .  IN  A  D  o  I T T  o »'  +i\vvt  will  nr  4  TABLES  pop  AGr  P*TW?»N  C  AND  4 
FOR  FACH  LF  VEI  np  "“!!  "  V » P T  A  PI.1'  occur  AN  *  5  T*PI.FS  FOP  OCCUP  BPTWFPN 
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1  AND  t|  FOR  EACH  LEVEL  OF  THE  VARIABLE  AGF.  TABLES  OF  MEAN  VALDES  ON 
THE  VARIABLE  INCOME  HILL  BE  PRODUCFE.  THE  SAME  PROCEDURE  HILL  BE 
FOLLOWED  FOR  THOSE  ROWS  WITH  NON-MISSING  SCOFFS  ON  THE  VARIABLE  N CHILD 
AND  APPROPRIATE  N  AND  MEANS  TABLES  PRODUCED.  ’’’HE  VALDFS  FOR  ROW  AND 
TOTAL  PERCENT’  mill  BE  INCLUDED  IN  THE  N  TABLES. 


(  P-S'f’AT  VISION  52.5) 


PAGE  53 


13.  DISCPTMTNANT  ANALYSIS  (  DISCPIM  ) 

*♦*****+**♦*****************  ******* ***************** *********** 

DTSCPTM,  IN  =  A,  NS  =  U ,  NVA  =  15,  OUT  =  B  $ 

THIS  DOES  A  MULTIPLE  GROUP  LI SCPT  MINA  NT  ANALYSIS. 

EACH  OP  THE  PONS  OP  A  DATA  PILE  CAN  EE  THOUGHT  OP  AS  BELONGING  TO  ONE 
OP  SEVERAL  POSSIBLE  GROUPS.  IP,  POP  EXAMPLE,  A  VARIABLE  NAMED  ‘GROUP'  HERE 
PART  OP  THE  PILE,  AND  EACH  PON  HAD  A  SCORE  OP  1  OR  2  OR  3  ON  IT,  THE  PILE 
COULD  BE  SEPARATED  INTO  THREE  GROUPS.  THIS  PROGRAM  TAMES  SUCH  A  FILE, 

USES  SCOPES  ON  TH*  NON-ANALYSIS  VARIABLES  TO  SPE  WHICH  GROUP  (  IP  ANY  ) 

THAT  A  ROW  BELONGS  TO,  AND  USES  TH*  ANALYSIS  VARIABLES  TO  CONSTRUCT  SEVERAL 
SETS  OP  WEIGHTS,  ONE  SET  POP  EACH  GROUP.  THEN,  MAKING  A  SECOND  PASS 
THROUGH  THE  FILE,  THE  DATA  IN  EACH  ROW  IS  USED,  WITH  THE  WEIGHTS,  TO  PRODUCE 
A  SCORE  FOR  THAT  ROW  FOR  EACH  GROUP.  IN  OTHER  WORDS,  IP  THERE  ARE  7  GROUPS, 
7  SCOPES  ARE  COMPUTED.  THE  ROW  IS  THE!?  RE-ASSIGNED  TO  THE  GROUP  WHOSE 
WEIGHTS  YIELDED  THE  HIGHEST  SCORE. 

THE  STATISTICAL  PROCEDURE  IS  SIMILAR  TO  THAT  USED  BY  THE  IBM 
SCIENTIFIC  SUBROUTINE  PACKAGE  AND  BY  THE  BMD  DISCRIMTNANT  PROGRAMS.  THE 
SUBPOUTTNE  WHICH  ESTIMATES  THE  PROBABILITY  EOR  AN  VALUE  COMES  PROM 

D.  VPLDM A  N‘ S  ‘FORTRAN  PROGRAMMING  FOR  THE  BEHAVIORAL  SCIENCES'. 

VERSION  52  PERMITS  AS  MANY  AS  20  GPOUPS  AND  90  ANALYSIS  VARIABLES. 

********  ***************  ** ******  ** ******* 

*  * 

*  OUTPUT  PRINTED  BY  THE  PROGRAM  * 

*  * 
*******************************  ** ******* 

1.  Nn HBEP  0*  CASES  AND  THP  DEFINITION  RULFS  EOF  EACH  GROUP. 

2.  AN  FRROP  CHPCK  INVOLVING  THF  TNVFRSE  COMPUTATION. 

3.  MEANS  ON  EACH  VARIABLE  FOP  ALL  GROUPS  TOGFTHEP  AND  FOR  EACH 
G°OUP  SFPAP ATFLY . 

U.  UNTVAPIATP  ' F '  VALUES  FOR  FAC H  7APIABLE.  THFSF  ARE  NOT  AFFECTED 
BY  "H*  INCLUSION  OP  nFI FTTON  OF  OTHER  ANALYSIS  VARIABLES.  THEY 
A.  Rw  IDENTICAL  TO  THE  *F‘  VALUES  PPCDUCED  BY  THE  • PRFQ'  PPCGRAM , 
ASSUMING  THP  SAMF  GROUPS  WFFF  COMPARED. 

MULTIVARIATE  *E‘  VALUES  FOR  EACH  VARIABLE.  THESE  ARE  CALLED 
'E  tq  pff»0Vp‘  IN  THF  STEPWISE  DISCRIMINANT  PPOGPAM  IN  THF  BHD 
SERIES.  QUOTING  THF  PHD  MANUAL,  ‘...THESE  ARE  THF  LIKELIHOOD 
PATIO  TpST<;  Q*  THF  EQUALITY,  OVER  ALL  G  GpOt)FS,  OF  THE  CONDITIONAL 
DISTRIBUTION  O*  VARIABLE  J,  GIVFN  OTH*P  VARIABLES'. 

IF  SUCH  i  N  IS  VEr Y  LOW,  FOR  EXAMPLE  0.1,  THAT  VARIABLE 

COULD  BE  r,c'LF""Fn  WITH  VFPY  LITTLE  LOSS  IN  DISC VlnTNATING  POWER. 

<■-.  MAUAIANORIS  0  S  QU  A  ° r ,  WHICH  TPSTS  THE  HYPOTHESIS  T!.AT  THF  GROUP 
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MEANS  ON  THE  VARIABLES  DO  NO?  DIFFER. 

7.  A  CLASSIFICATION  TABLE,  DISPLAYING  THE  DEGREE  OF  SUCCESS  OF  THE 
RE-CLASSIFYING  PROCEDURE.  IF  A  CASE  FROM  ORIGINAL  GROUP  2  IS 
RE-CLASSIFIED  INTO  GROUP  4  (  ON  THE  BASIS  OF  HIS  DISCRIMINANT 
SCORES  ),  HE  IS  COUNTED  IN  THE  2ND  ROW  AND  4TH  COLUMN  OF  '’'HE 
TABLE.  IF  ALL  CASES  ARE  CORRECTLY  RE-CL A SS IFIFD,  THE  TABLE  WILL 
HAVE  NON-7ERO  COUNTS  ONLY  IN  THE  DIAGONAL. 

************4  *************************** 

*  * 

*  IDENTIFIERS  * 

*  * 
*************************************4  ** 

•NG*  IS  THE  NUMBER  01  GROUPS.  NG  CARDS  MnST  FOLLOW,  DESCRIBED  RELOW, 
EACH  DEPINING  A  GROUP. 

•  NVA'  IS  THE  NUMBER  OF  VARIABLES  TO  BE  ANALYSED.  THESE  VARIABLES 
MUST  BE  THE  LEFTMOST  VARIABLES  IN  THE  INPUT  FILE  (  I.K.,  1  THROUGH  NVA  ). 

THE  (C  )  TYPE  QUALIFICATION  PHRASE  CAN  BE  USED  TO  REARRANGE  THE  VARIABLES 
INTO  THE  PROPER  ORDER. 

•IN*  IS  THE  INPUT  FILE  OF  DATA.  ITS  SIZF  IS  NR  ROWS  BY  NVA*K 
COLUMNS.  NR  IS  THE  NUMBER  OF  ROWS,  AND  CAN  BS  ANY  SIZE,  K  IS  THE  NUMBER 
OF  ADDITIONAL  VARIABLES  NFEDED  TO  DFFINF  THE  GROUPS.  NR  SHOULD  BE 
SUBSTANTIALLY  MORE  THAN  NVA  ♦  NG.  SCORES  ON  THE  NVA  ANALYSIS  VARIABLES 
SHOULD  BE  COMPLETE.  ROWS  WITH  HISSING  DATA  IN  THE  NVA  VARIABLES  ARE 
SKIPPED.  NR  SHOULD  BE  THOUGHT  OF  AS  THE  NUMBER  OF  ROWS  THAT  ARE  INCLUDED 
IN  THE  ANALYSIS,  IN  OTHER  WORDS.  THE  NUMBER  OE  ROWS  THAT  CM  BE  INITIALLY 
ASSIGNED  TO  SOME  GROUP. 

*  FUN*  IS  AN  OUTPUT  FILE,  NVA  *  1  BY  NG.  THE  FIRST  COLUMN  CONTAINS 
THE  FIRST  DISCRIMINANT  FUNCTION,  WITH  THE  CONSTANT  IN  THE  LAST  ROW.  THIS  IS 
USED  TO  PRODUCE  SCORES  FOR  MEMBERSHIP  IN  THE  PTPST  GROUP.  THE  SECOND 
COLUMN  IS  INVOLVED  WITH  THE  SECOND  GROUP,  AND  SO  *ORTH.  IF  NVA  WEPF  15 

AND  *  FUN=?NAT*  WERE  USED,  THE  FOLLOWING  P-STAT  STATEMENT  WOULD  PRODUCE  A 

N?  BY  NG  FILE  OF  DISCRIMINANT  SCORES . 

MULTIPLY, 

PRE  =  A  (  C  1-15  )  {  SETX  UNIT  TO  1  ) 

(  IF  ANY (  1-15  )  MISSING,  DELETD  ), 

POST  =  FM AT,  OUT  =  SCOPE  S 

•OUT'  IS  AN  OUTPUT  FILE  OF  PROBABILITIES  AND  DISCRIMINANT  SCORES. 

ITS  5I7F  IS  NR  BY  NG  ♦  4.  THE  COLUMNS  ARE . 

1-  THE  GRODP  THAT  THE  ROW  WAS  ORIGINALLY  TN,  AS  DEFINED  BY  THE 
GROUP  CARDS.  THUS,  A  VALUE  OF  1  ’’'HFOUGH  NG . 

2-  THE  GROUP  THAT  THE  ROW  MOST  PPOBAPLY  BELONGS  TO,  BASED  ON  T^S 
COMPUTED  DISCRIMINANT  SCOFFS  ON  FACH  GROUP*  S  FUNCTION. 

ALSO  1  THROUGH  NG. 

3-  TR*  PROBABILITY  0*  BELONGING  TO  ITS  ORIGINAL  GROUP,  0  THROUGH  1. 
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U-  THE  PROBABILITY  OF  BELONGING  TO  ITS  HIGHEST  SCOPE  GROUP. 

IF  A  ROW  IS  ASSIGNED  BY  THE  PROGRAM  TO  ITS  OWN  GROUP,  ITS  SCORES  ON 
THE  FIRST  TWO  VARIABLES  WTLL  BE  IDENTICAL,  AND  ITS  SCORES 
(  PROBABILITIES  )  ON  VARIABLES  3  AND  4  WILL  BE  IDENTICAL. 

5-  DISCRIMINANT  SCORE  FOR  MEMBERSHIP  IN  THE  FIRST  GROUP. 

6-  DTSCPIMINANT  SCORE  FOR  MEMBERSHIP  IN  THE  SECOND  GROUP,  ETC. 

* * ** *** * ** * *** ****** * * * ********** * * * * ** * 

*  * 

*  GROUP  SELECTION  CARDS  * 

♦  * 

*  ******************************** ******* 

A  SELECTION  CARD  MUST  BE  SUPPLIED  FOP  EACH  GROUP. 

COL  1-8  A  LABEL  FOR  THF  GROUP.  THIS  MUST  BE  A  VALID  P-STAT  LABEL, 

FIRST  CHARACTER  A  LETTER,  ETC. 

COL  13-20  THE  NAME  OF  A  SELFCTICN  VARIABLE  IN  THE  INPUT  FILE. 

SELECTION  VARIABLES  CANNOT  BE  ANY  OF  THE  FIRST  NVA  VARIABLES. 

COL  21-30  LOW  SCORE. 

COL  31-40  HIGH  SCORE. 

COL  43-50  ANOTHER  SELECTION  VARIABLE  (  OPTIONAL  ). 

COL  51-60  ITS  LOW  SCORE. 

COL  61-70  ITS  HIGH  SCORE. 

A  ROW  IS  ORIGINALLY  ASSIGNED  INTO  GROUP  J  IF... 

IT  HAS  NO  MISSING  DATA  IN  THE  ANALYSIS  VARIABLES,  AND 
ITS  SCOPE  ON  TR*'  FIRST  SELECTION  VARIABLE  (  GROUP  CARD  COLUMN  13-20  ) 
FOR  GROUP  J  IS  AT  OP  WITHIN  THF  RANGE  DEFINED  BY  THE  LOW  AND 
HIGH  SCOPES,  AND 

I*  ALSO  PASSES  THE  SECOND  SFLFCTION  VARIABLE  TEST,  IP  ONE  IS  THERE. 

A  ROW  TS  ASSIGNED  TO  THF  FIRST  GROUP  FOP  WHICH  IT  QUALIFIES. 

I*  IT  FAILS  THF  T^STS  FOP  All  THE  GROUPS,  IT  IS  SKIPPED. 
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14.  FREQUENCY  DISTRIBUTIONS  (  FREQ  ) 

FREQ 
FREQ. C 

********41  *************************  **************************** 

FREQ,  IN  =  A  ,  DES  =  D  J 

FREQUENCY  DISTRIBUTIONS,  ONE  PAG*  (AT  LEAST)  PER  INPUT  VARIABLE, 
WILL  BE  PRODUCED. 

THIS  PROGRAM  TAKES  A  DATA  FILE  AND  COMPUTES  FREQUENCY 
DISTRIBUTIONS  ON  ANY  NUMBER  OF  VARIABLES.  THE  MEAN  AND  RANGE  OF  EACH 
VARIABLE  IS  NEEDED.  THAT  RANGE  IS  SLICED  INTO  A  NUMBER  OF 
CATEGORIES  OP  EQUAL  WIDTH,  FROM  THE  LOWEST  SCORE  UP  TO  THE  MEAN, 

AND  ANOTHER  SET  OF  CATEGORIES  FROM  THE  MEAN  TO  THE  HIGHEST  SCORE. 

THIS  HELPS  ON  SK£WED  DISTRIBUTIONS. 

A  NUMBER  OF  GROUPS  MAY  BE  DEFINED  IN  TERMS  OE  THEIR 
SCOPES  ON  CERTAIN  VARIABLES  IN  THE  DATA  PILE.  A  SIMPLE 
ANALYSIS  OF  VARIANCE  IS  PERFORMED  CN  THE  SUB-GROUP  DATA  IF 
THERE  IS  MORP  THAN  ONE  GROUP.  THE  PREQUPNCY  DISTRIBUTION  ALSO 
INCLUDES  THE  DISTRIBUTION  OF  ALL  MEMBERS  OF  THE  DATA  EILP, 

WHETHER  THEY  WERE  DEFINED  IN  A  GROUP  OP  NOT.  THE  OUTPUT  ALSO 
HAS  PERCENTS  AND  CUMULATIVE  PERCENTS. 

VERSION  52  -  THERE  CAN  BE  UP  TO  1C  GROUPS  AND  30  CATEGORIES.  THE 
PROGRAM  WILL  PROCESS  ALL  AVAILABLE  VARIABLES,  MAKING  ONE  PASS 
THROUGH  THE  FILE  FOR  EACH  47  VARIABLES. 

NG  *  NUMBER  OE  GROUPS,  IF  ANY.  A  DATA  CARD  DEFINING  EACH  GROUP 

FOLLOWS  (  T*  THERE  ARE  GROUPS  ) . 

IN  =  NAME  OE  INPUT  DATA  FILE. 

DES  =  NAME  OE  MATRIX  OE  MEANS,  VARIANCES,  ETC.  THIS 

MATRIX  CONTAINS  AS  ITS  FOURTH  AND  FIFTH  COLUMNS  THE 
LOWEST  AND  HIGHEST  SCCRFS  ON  THAT  VARIABLF.  THIS 
MATRIX  IS  OF  ORDER  NV  BY  6,  AND  IS  USUALLY  THE 
OUTPUT  OF  SCAN  OR  DATA, 

ALLCAT,  IF  THIS  IDENTIFIER  USED,  THE  PROGRAM  WILL  PRINT  ALL 

CATEGORIES,  EVEN  IF  A  CATEGORY  DID  NOT  HAV* 

ANY  SCOPES  IN  IT.  IF  ALLCAT  TS  NOT  USED,  THE  PROGRAH 
PRINTS  ONLY  THOSE  CATEGORIES  THAT  HAD  SCORES.  THE  REASON 
PGP  THIS  OPTION  IS  TO  MAKE  IT  EASIER  EOF  THE  USE? 

TO  VISUALISE  DIFFERENCES  IN  DISTRIBUTIONS  BETWEEN 
THE  VARIOUS  GROUPS.  IE  HE  TS  TPYTNG  TO  DO  THIS  BY 
LOOKING  AT  HIS  PRINTED  OUTPUT,  THE  EFFECT  IS 
DISTORTED  IF  CATFO.OPIFS  WITHOUT  SCOPES  APE 
NOT  PRINTED  AND  THE  OUTFUT  AS  A  RESULT  IS  COM¬ 
PRESSED  TOGETHER,  REPORTING  ONLY  THOSE  CATEGORIES 
THAT  DID  HAVE  SCOP’S. 
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AtLGPP,  TF  USED,  A  CASE  WILL  BE  INCLUDED  IN  ALL 

THE  GROUPS  THAT  IT  QUALIFIES.  USUALLY  A  CA5E  FALLS  IN 
ONLY  '’'HE  FIRST  GROUP  FOR  WHICH  IT  QUALIFIES.  (  USING  THIS 
OPTION  INVALIDATES  THE  ANALYSIS  OF  VARIANCE.  ) 

NCAT  =  THIS  (RARELY  USED)  FEATURE  ALLOWS  THE  USER  TO  SPECIPY 

THE  NUMBFR  OF  CATEGORIES  TO  BE  USED.  IT  MUST  BE  AN  EVEN 
NUMBER,  AND  CANNOT  EXCEED  THE  MAXIMUM  NUHBFR  OP  CATEGORIES. 
ONE  MIGHT  WISH  ,  FOR  EXAMPLE,  TO  SAY  *  NCAT  *  20  •  IN  ORDER 
TO  FORMAT  THE  PAGES  DIFFERENTLY. 


EOUALCAT,  IP  USED,  THE  CATEGORIES  WILL  BE  DIVIDED  EQUALLY  OVER  THE 

RANGE  OF  FACH  VARIABLE.  IP  •  FQUALCAT  •  IS  NOT  USED,  HALF 
THE  CATEGORIES  WILL  BE  EELOW  THE  MEAN  AND  HALF  WILL  BE 
ABOVE  THE  MEAN. 


GROUPS  -  A  GROUP  IS  DEFINED  AS  THOSE  CASES  WHO,  ON  VARIABLE 
I,  HAVE  A  NON-MISSING  SCOPE  AT  OR  BETWEEN  A  AND  B,  AND  ALSO,  ON 
VARIABLE  J,  HA”E  A  NON-MISSING  SCORF  AT  OR  BETWEEN  C  AND  D. 
THESE  VARIABLES  I  AND  J  CAN  BE  ANY  VARIABLES  IN  THE  DATA  FILE. 
IP  ONLY  VARIABLE  I  IS  NEEDED,  INFORMATION  ON  J  NEED  NOT  BE 
PUNCHED. 


GROUP  CARD  FORMAT 


COL  1-  8 
COL  13-2P 

COL  21-30 
COL  31-UO 
COL  U3-5P 
COL  51-60 
COL  61-70 


NAME  TO  BE  USED  FOR  THAT  GROUP. 

LABEL  OF  GROUP-DEFINING  VARIABLE  I.  CAN  BE  PUNCHED 
ANYWHERE  IN  THOSE  COLUMNS. 

LOW  BOUNDARY  SCORE  ON  THAT  VARIABLE. 

HIGH  BOUNDARY  SCORE  ON  THAT  VARIABLE. 

VARIABLE  LABEL  FOR  VARIABLE  J,  IF  USED. 

LOW  BOUNDARY  SCOPE  CN  J  VARIABLE. 

HIGH  BOUNDARY  SCORE  ON  J  VARIABLE. 


THESE  SCORES  SHOULD  BE  PUNCHED  WITH  A  DECIMAL  PLACE.  IF 
SO,  THE  PROGRAM  WILL  FIND  THE  DECIMAL  PLACE  WITHIN  THE  TEN  COL¬ 
UMNS  INVOLVED  AND  BELIEVE  IT,  WHEREVER  IT  IS.  IP  NO  POINT  IS 
PUNCHED,  THE  INTERNAL  FORMAT  US^D  IS  FIC.tt,  SO  THAT  THE  LAST 
FOUR  COLUMNS  IN  *ACH  0"  THOSE  TEN  COLUMN  FIELDS  WOULD  BF 
INTERPRETED  AS  DECIMAL  PLACES.  IN  OFNEnAL,  IT  IS  FAP  BFTTER  TO 
PUNCH  THE  POINT. 


A  SIMPLE  ANALYSIS  OP  VARIANCE  IS  PFRFORMED  AFTER  THE 
FREQUENCY  DISTRIBUTION  IS  PRINTED  OUT.  THIS  IS  DONE  TF  THERE 
ARE  TWO  OR  MORE  GROUPS  THAT  HAD  DATA.  MISSING  DATA  IS  NOT 
INCLUDED  IN  TPPSE  COMPUTATIONS  AND  IS  SPORTED  SEPARATELY  IN 
THE  pP^OUENCY  DISTRIBUTION S, 
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CONSIDER..  . 


FREQ,  IN 
NO. SMOKE 
MOD. SHOK 
PACKADAY 


A  (C  11-UO) 
SMOKE  0 

SMOKE  1 

SMOK*  20 


DES  =  D,  NO 
0. 
19. 
9999. 


3$ 


NOTE....  IP  VARIABLE  SMOKE  IS  NOT  ONE  OF  VARIABLES  11-UO, 
IE  HOST  BE  INCLUDED,  AS..IN=A(C  SMOKE,  11-UO). 


THIS  HILL  PRODUCE  30  PAGES  OF  OUTPUT,  SINCE  30  VARIABLES  IN  A 
ARE  MADE  AVAILABLE.  D  IS  PROBABLY  A  DESCRIPTION  FILE  OF  ALL  OF  A, 

BUT,  USING  LABEL  MATCHING,  THE  APPROPRIATE  30  RANGES  AND  M*ANS  HILL 
BE  FOUND.  THREE  GROUPS  APE  INVOLVED,  SINCE  THE  USER  HISHFS  TO 
COMPARE  NO  SMOKING,  MODERATE  SMOKING,  AND  HEAVY  SMOKING.  CASES  HITH  0. 
ON  VARIABLE  SMOKE  (HHICH  MUST  BE  CNF  OF  THE  11-UO  IN  THIS  EXAMPLE) 

ARE  INCLUDED  IN  GROUP  *NO. SMOKE*,  AND  SO  FORTH. 

IF  THIS  HFPE  DONE  FOR  MALES  ONLY,  (CODED  1.),  THE  GROUP  CARDS 


HOULD  RE... 

NO. SMOKE 

SMOKE 

C. 

0.  SEX 

1. 

1. 

MOD. SMOK 

SMOKE 

1. 

19.  SEX 

1 

•  • 

1. 

PACKADAY 

SMOKF 

20. 

99999.  SEX 

1. 

1. 

********************************4  4i*-  **4'**4-  +  *  ***  *****  ************ 


FfPO.C,  IN=A ,  DES=B,  NG=U  $ 

THIS  IS  LIKE  *  FREQ'  HITH  3  EXCEPTIONS . . . 

1  -  MORE  CATEGORIES  (  HENCE  THE  C  )  APE  ALLOHED. 

VERSION  52-5  GROUPS,  100  CATEGORIES,  23  VARIABLES  PER  PASS. 

2  -  THE  IDENTIFIER  »PAIR*  IS  AVAILABLE.  IF  USED,  IT  ASSUME  THE  ROHS 

IN  THE  INPUT  PILE  COME  IN  PAIRS.  KG  HOULD  BE  2,  SO  THAT  THE  FIRST 
GROUP  HAS  ALL  FIRST  ROHS  AND  TH F  SFCOND  GROUP  HAS  ALL  THE  SECOND 
ROWS.  A  CORRELATED  T  FATHFR  THAN  A  SIMPLE  T  OR  F  IS  PRODUCED. 

3  -  THE  IDENTIFIER  'AILGPP*  SHOULD  NOT  BE  USED  HHFN  'PAIR'  IS  USED. 
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15.  REGRESSION  (  MULTR  ) 

I  MULTR 

f  RESIDU.1 

E 

*#  ****  *  t  *  ******  *********  ******  *********  ************************ 

l. 

[  MULTR,  COR=A,  DES=B* 

I  I  IDI  I 

mm 

♦  END 

HULTIPLP  REGRESSION.  THIS  PROGRAM  HAS  THE  ADVANTAGE 
0?  DOING  A  NUMBER  OF  MULTIPLE  REGRESSIONS  QUITE  RAPIDLY 
WITH  VERY  SIMPLE  CONTROLS  DETERMINING  WHICH  VARIABLES  ARE  TO  BE 
’  INCLUDED  IN  PACH  GIVEN  REGRESSION.  ITS  DISADVANTAGE  IS  THAT  IT 
i  MAKES  NO  USE  OF  RAH  DATA.  AS  A  RESULT,  RESIDUALS  ARE  NOT  COM- 
\  PUTED  IN  THIS  PROGRAM. 

j  COR=  NAME  OF  THE  INPUT  CORRELATION  MATRIX. 

f  DES=  NAME  OR  NV  BY  6  MATRIX  OF  MEANS,  VARIANCES,  ETC. 

THIS  MATRIX  IS  USED  FOR  -  (1)  REPORTING  THE  MEANS 
AND  STANDARD  DEVIATIONS  OF  EACH  VARIABLE,  (2) 

COMPUTING  THE  RATIO  OF  THE  STANDARD  DEVIATIONS  OP 
EACH  INDEPENDENT  VARIABLE  WITH  THE  S.D.  OF  THE 
DEPENDFNT  VARIABLE,  SO  THAT  A  RAH  SCORE  CO-FPFI- 
CIENT  CAN  BE  COMPUTED  FRCM  THE  STANDARDIZED  SCORE 
CO-EFFICIENT,  AND  (3)  FINDING  THE  NUMBER  OF  CASES 
INVOLVFD  FOR  DETERMINING  THE  DEGREES  OF  FREEDOM  IN 
!  THE  F  RATIOS. 

MISSING  DATA  CORRELATIONS... 

SINCE  THE  INPUT  IS  A  CORRELATION  MATRIX  (  AND  IS  NOT  RAH  DATA  ), 
THE  PROGRAM  HAS  NO  HAY  OF  KNOWING  WHETHER  THE  DATA 
INVOLVED  IN  THE  COPPFLATION  MATRIX  HAS  COMPLFTE  OP  PERHAPS 
PARTIALLY  MISSING.  THE  PROGPAH  SCANS  THE  MATRIX  OF  MFANS , 

STANDARD  DEVIATIONS,  RANGES,  AND  N« S,  AND  TAKES  THE  SMALLEST  N 
OF  ANY  VARIABLE  USED  IN  A  PARTICULAR  REGRESSION.  BECAUSE  OF 
THE  UNCERTAINTY  ABOUT  DEGREES  OF  FREEDOM,  THE  USE  OF  MISSING 
DATA  CORRELATION  MATRICES  IN  THIS  PROGPAH  IS  DISCOURAGED. 

PROBABLY  I?  THE  N  HAS  VERY  LARGE  AND  ONLY  A  FEW  CASES  HERE 
MISSING,  the  RESULTING  REGRESSIONS  WILL  BE  REASONABLY  ACCURATE. 
HOWEVER,  IE  SOME  OF  ?Hp  VARIABLES  INVOLVFD  HAD  VERY  SMALL  N'S, 

THEN  IT  IS  VERY  LIKELY  THA*  THE  INVERSE  HILL  NOT  BE  COMPUTABLE, 

AND  EVEN  IF  IT  IS,  NO”’  TOO  MUCH  CONFIDENCE  SHOULD  BF  PLACED  IN 
THE  PESULTING  REGRESSION  HEIGHTS. 

MAXIMIUM  STZTS... 

VERSION  S2  - 

THE  INPUT  CORRELATIONS  CAN  BE  UR  TO  50  BY  50. 

Up  -”0  2d  INDPPFNDFNT  VARIABLES  CAN  P*  USED  AT  ONE  tjh*. 


(  P-STAT  VERSION  52.5) 


PATE  50 


THE  MATRIX  OF  MEANS  AND  STANDARD  DEVIATIONS  CAN  BF  ANY  SIZE, 

AND  THE  PROGRAM  HILL  MATCH  THE  LABEIS  OF  THE  CORREIA"!  O', 

MATRIX  WITH  THE  LABELS  OF  "HE  MEANS  AND  STANDARD 

DEVIATION  MATRIX,  FINDING  THE  APPROPRIATE  MEANS,  ETC.  ALL  VARIABLES 
IN  THE  CORRELATION  MATRIX  MOST  ALSO  BE  IN  THE  »DES'  MATRIX. 

REGRESSION  CONTROL  CARDS... 

READING  THE  INITIAL  CONTROL  CARD  ONLY  CAUSES  THE  MATRICES 
NAMED  ON  IT  TO  BE  FOUND  AND  DROUGHT  INTO  CORF.  NON,  A 
CARD  MUST  BE  READ,  WHICH  TELLS  THE  PROGRAM  WHICH  V APIABLFS  ARE 
THE  INDEPENDENT  VARIABLES  AND  WHICH  IS  THE  DEPENDENT  VARIABLE 
FOR  THIS  PARTICULAR  REGRESSION.  A  CARD  IS  READ  UNDER  50A1 
PORMAT. 

CONSIDER  A  MATRIX  WITH  FORTY  VARIABLES.  IF  ONE  WISHED  TO  USE 
VARIABLES  1,  3,  5,  7,  AND  9  AS  INDEPENDENT  VARIABLES  AND  6  AS 
THE  DEPENDENT  VARIABLE,  THE  CARD  WOULD  BE  PUNCHED  AS  FOLLOWS  - 
IBIPIDTBI  (WHEPE  B  MEANS  BLANK)  AND  THE  REST  OF  THE  CARD  IS 
BLANK.  THE  CODING  IS  -  ALL  VARIABLES  ASSOCIATED  WITH  I 
PUNCHED  IN  THE  CARD  APE  CONSIDERED  TO  BE  INDEPENDENT  VARIABLES, 

ALL  VARIABLES  WITH  BLANK  ARE  CMMITFD  IN  THIS  PARTICULAR 
REGRESSION,  AND  THE  VARIABLE  WITH  D  IS  THE  DEPENDENT  VARIABLE. 

IF  THE  SAME  INDEPENDENT  VARIABLES  APE  TO  BE  RON  AGAINST  A 
NUMBER  OP  DEPENDENT  VARIABLES,  ONE  CARD  WITH  ALL  THE  D'S  ON  IT 
IN  ADDITION  TO  THE  I'S  FOP  THE  INDEPENDENT  VARIABLES  WILL 
CAUSE  AS  MANY  REGRESSION  RUNS  AS  THERE  ARE  D*S,  DOING  ALL  THE 
INDEPENDENT  AGAINST  THE  LEFTMOST  D  THE  FIRST  TIME,  ETC.  THE 
PROGRAM  WILL  CONTINUE  READING  CARDS  UNTIL  A  CARD  WITH  +END  IN 
COLUMNS  1-4  IS  READ. 

OUTPUT. . . 

THIS  PROGRAM  WAS  WRTTTFN  AT  PRTNCFTON,  BUT  WAS  B.'.SED  UPON  USE  OF 
BOTH  THE  BIMD6  PROGRAM  AND  THE  REGRESSION  PROGRAM  IN  THF 
COOLEY-L OHNPS  BOOK.  THE  OUTPUT  IS  VERY  SIMILAR  TO  THE  BIHD6 
OUTPUT.  IT  INCLUDES  THE  VARIABLE  NUMBER,  LABEL,  MEAN,  STANDARD 
DEVIATION,  INTERCORRELATION  WITH  THE  DFPENDENT  VARIABLE,  A  RAW 
REGRESSION  WEIGHT,  A  WEIGHT  FOR  STANDARDIZED  DATA,  THE  STANDARD 
ERROR  OF  THE  REGRESSION  WEIGHT,  THE  ?  OF  THE  REGRESSION  WEIGHT, 

THE  PARTIAL  CORRELATION  (AS  WELL  AS  THE  MULTIPLE  COPRFLA TION)  , 

AND  THE  F  TEST  OF  SIGNIFICANCE  OF  ’’’HE  REGRESSION. 


*************»*****************************<!»«»  ******  ********** 


RESIDU.1,  IN  *  A,  SLOPE  =  F,  INCEPT  =  C,  OUT  *  P  $ 

IN  IS  A  DATA  FILE  WHICH  HAS  AS  VARIABLES  N  PPE  SCORES  FOLLOWED 
BY  N  POST  SCORES.  IT  HAS,  THEREFORE,  N  +  N  COLUMNS.  IT  CAN  HAVE  A N7 
NUMBER  OF  ROWS,  AND  DATA  CAN  JE  MISSING.  IF  "'HIS  WERE  RUN  THROUGH 
INTCDS  OR  INTMDS,  A  SLOPE  MATRIX  AND  AN  INTERCEPT  MATRIX  COULD  HAVE 
BEEN  PRODUCED.  *»OTH  THESF  WOULD  BF  OF  SIZF  N*N  BY  N*N. 
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THIS  PROGRAM  PRODUCES  AN  OUTPUT  FILE  OF  RESIDUALS,  THAT  PART  OF 
THE  POST  SCORE  NOT  PREDICTABLE  BY  THE  PRE  SCORE.  IF,  FOR  ANY  CASE, 
EITHER  THE  PRE  OR  THE  POST  SCORE  IS  HISSING  FOR  A  VARIABLE,  THE 
ASSOCIATED  RESIDUAL  SCORE  IS  SET  TO  BE  MISSING. 

THE  OUTPUT  FILE  HILL  BE  NR  BY  N,  WHERE  NR  IS  TH?  NUMBER  OF 
ROWS  IN  T”E  *  IN '  FILE. 


VERSION 


52  -  *IN*  CAN  HAVE  UP  TO  1 50  COLUMNS 
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16.  TWO  WAY  ANALYSIS  OP  VARIANCE  (  PBYQ  ) 

*****  *********************  *******  *************  +  **>».***  ********** 

PBYQ/  IN=A,  ROW=C . AOF/3 ,  COL=EDUCAT/3 ,  FIRST=4C  $ 

THIS  PROGRAM  DOES  AN  ANALYSIS  OF  VARIANCE  Or  MEANS  IN 
A  TWO-WAY  TABLE.  THE  MEANS  CAN  BE  BASED  ON  UNEQUAL  FREQUENCIES  IN  THE 
CELLS.  THfc  PROCEDURE  USED  IS  FROM  WINER,  PAGE  241.  IN 
GENERAL,  3  VARIABLES  ARE  INVOLVFD.  ONE  DETERMINES  THE  ROW 
LEVEL  OF  THE  P  BY  Q  TABLE,  THE  SECOND  THE  COLUMN  LEVEL,  AND  THE 
THIRD  VARIABLE  IS  THE  ONE  ACTUALLY  ANALYZED. 

IN  »  INPUT  DATA  FILE.  CONTAINS  THE  ROW  VARIABLE,  THE  COLUMN 

VARIABLE  (  OR  VARIABLES  -  SEE  PFLOW  ),  AND  THE  VARIABLES 
TO  BE  ANALYZED.  HISSING  LATA  IS  ALLOWED  ANYWHERE. 

ROW  =  LABEL  OF  THE  ROW  VARIABLE  /  HIGHEST  ROW  VALUE 

COL  =  LABEL  OF  THE  COL  VARIABLE  /  HIGHEST  COLUMN  VALUE 

FIRST  =  POSITION  (  I.E. ,  NOT  A  LABEL  )  OF  THF  FIRST  VARIABLE  TO  BE 

ANALYZED.  IF  OMITTED,  ALL  VARIABLES  ARE  ANALYZFD, 

INCLUDING  THE  ROW  AND  CURRENT  COLUMN  VARIABLES. 

CONSIDER  THE  FOLLOWING  FILE  OF  DATA  ABOUT  EMPLOYEES  IN  A 
MANAGEMENT  TRAINING  PROGRAM. 

VARIABLE  1  AGE (WHEN  HIRED)  21  TO  3P 

VARIABLE  2  C. AGE  (  CODED  AGE  )  1  *  21  TO  23 

2  *  24  TO  26 

3  *  27  TO  30 

VARIABLE  3  EDUCAT  (  EDUCATION  )  0=LESS  THAN  HIGH  SCHOOL 

1=HTGH  SCHOOL 
2=CCLLEGE  DEGREE 
3  =  OR  ADUATF  WOPK 

VARIABLES  4-20  THESE  A° E  SCOPES  ON  A  TEST  (  CODED  1  TO  6  )  GIVEN 

AT  THE  TIME  THE  PERSON  WAS  EMPLOY?  D.  THEREFORE, 
THEY  MIGHT  EF  PREDICTORS  OF  LATER  SUCCESS. 

VARIABLES  21-40  THESF  ARF  EVALUATIONS  OF  THF  FMPLOYEF  AFTER  A 

PFRIOD  OF  TTM T  AND  COULD  BE  USED  AS  CRITERIA 
OF  ’’’HE  PERSCNN5L  SELFCTICN  PROCESS. 
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CONSIDER  A  2  HAT  TABLE  OF  CODED  AGE  AND  EDUCATION, 

H  BJ  #  TABLE.  IT  MIGHT  LOOK  LIKE  THIS... 

0  12  3 

1  0  5  7  5 

2  1  6  9  11 

3  1  3  3  '4 

THERE  ARE  7  PEOPLE  BETWEEN  21  AND  23  WITH  A  COLLEGE  DEGREE, 
AND  SO  FORTH.  SO  FAR,  2  VARIABLES  ARE  INVOLVED,  A  ROt.  VARIABLE 
(  C. AGE  ),  AND  A  COLUMN  VARIABLE  (  EDUCAT  ).  THE  HIGHEST  LEVEL 
IN  C. AGE  IS  3,  SINCE  IT  IS  CODED  1,  2,  AND  3. 

IF  VARIABLE  40  IS  AN  EVALUATION  AFTER  2  TEARS,  WHERE  1  IS 
BAD  AND  9  IS  EXCELLENT,  WE  COULD  GATHER  THE  SCORES  CN  VARIABLE 
40  FOR  THE  7  PEOPLE  AND  COMPUTE  A  MEAN  FOR  THAT  CELL.  SIMILARLY, 
MEANS  FOR  THE  OTHER  CPLLS  COULD  BE  FOUND..  AND  A  TABLE  OF  MEANS 
ON  VARIABLE  4C  COULD  BE  PRINTED.  THIS  PROGRAM  PRODUCES  SUCH 
TABLPS  AND  DOES  A  FACTORIAL  ANALYSIS  OF  VARIANCE  ON  THEM, 

YIELDING  F  VALUES  POP  THE  ROW,  COLUMN,  AND  INTERACTION  EFFECTS. 

THE  ORIGINAL  EXAMPLE  WOULD  DO  SUCH  AN  ANALYSIS. 

- TABLE  SIZE - 

VERSION  52  -  THE  TABLE  CAN  BE  5  BY  10.  IT  ASSUMES,  HOWEVER,  THAT 
0  IS  THE  LOWEST  (  FIRST  )  LFVEL.  THEREFORE,  4  IS  THE  HIGHEST  ROW 
VALU*.  AND  9  IS  THE  HIGHEST  COLUMN  VALUE  IN  THE  TABLE. 

50  VARIABLES  ARE  ANALYZED  IN  EACH  PASS  THROUGH  THE  FILE  (  FOR  A 
GIVEN  ROW  AND  COLUMN  PAIR  }  .  IF  MORE  THAN  50  VARIABLES  ARE  TO  BE 
ANALYZED,  THE  PROGRAM  AUTOMATICALLY  MAKES  SEVERAL  PASSES. 

- RE-CODING  WITHIN  PBYQ - 

THE  ROW  VARIABLE  AND/OP  "’HE  COLUMN  VARIABLE  CAN  BE  RE-CODED. 
THIS  IS  SIGNALLFD  BY  A  NEGATIVE  VALUE  ON  THE  P-STAT  CARD  FOR  THE 
HIGHEST  VALU*1. 

ROW  =  AGE  /  -4  SAYS.  . . 

VARIABLE  AGE  IS  THE  ROW  VARIABLE  AND  IS  TO  BE  RE-CODED  TO  HAVE 
FIVE  LEVELS  (  C,  1,  2,  3,  AND  4  ).  A  DATA  CARD  MUST  FOLLOW 
THE  PHY 0  CARD  WITH  THE  ACTUAL  RANGES  ASSOCIATED  WITH  EACH  LEVEL. 
*n?  EXAMPLE . 

2D.  22.  23.  23.  2  *».  25.  26.  27.  28.  20. 

CAUSES  PEOPl*  WITH  A GFS  OP  2C  TO  22  TO  FALL  INTO  ROW  0, 

THOSE  OF  AGE  ?3  VltL  BFCCMF  A  1,  ETC. 

IE  BOTH  rows  AND  COLUMNS  APE  RE-CCDED,  THE  ROW  CARD(S)  COMES 
PTPST.  1TE  COLUMN  RANGES  FFGIN  ON  A  NEW  CARD.  THE  FORMAT  OF 
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THE  CARDS  IS  16F5.0  .  THUS,  THE  20.  CN  THE  EXAMPLE  CARD  IS 

PUNCHED  SOMEWHERE  IN  COLUMN  1  TO  5  (  •  2t.  .  OR  8  20.  ',  BUT 
NOT  '2  0  .'  ),  OR,  20  CAN  BE  PUNCHED  E’:AC'tLY  IN  COLUMNS  4  AND  5 
(  '  20'  )  AND  SO  ON  IN  5  COLUMN  GROUPS. 

IF  A  VARIABLE  IS  ALREADY  IN  1,2,3  FORM,  RE-CODING  IS  PPOB ABLY 
NOT  NECESSARY,  UNLESS,  FOR  FXA  ?PLF ,  A  GROUPING  OF  1-2  AGAINST 

3  WFRE  DESIRED. 

THE  USE  OF  NCOT  AND  RECODE  Il>  'SET*  PHRASES  IS  ANOTHER  WAY  TO  GET 
DATA  INTO  C ,  1 , 2,  ETC.  FORM. 

- COMPRESSING - 

THE  ANALYSIS  OF  MEANS  CANNOT  BE  DONE  IF  A  CELL  HAS  AN  N 
OF  ZERO  (  AND  THEREFORE  NO  MEAN  ).  NOTE-  THE  MEAN  ITSELF  CAN  BE 
ZERO  AS  LONG  AS  THEPF  ARE  PEOPLE  IN  THE  CELL.  FOR  THAT  MATTER, 
ALTHOUGH  THE  PROCEDURE  (  BASED  ON  STATISTICAL  PRINCIPLES  I" 
EXPERIMENTAL  DESIGN  -  B.  J.  WINER,  SEE  P  BY  Q  FACTORIAL 
EXPERIMENT,  UNEOUAL  CELL  FREQUENCIES  ) PERMITS  CELLS  TO  HAVE  UNEVEN 
FREQUENCIES,  IT  IS  BETTER  IF  CELLS  WITH  VERY  LOW  FREQUENCIES  ( 
0,1,2  )  ARE  COMBINED  SOMEHOW. 

THIS  PROGRAM  TAKES  THE  FREQUENCY  TABLE  AND  COMBINES  THE 
WORST  ROW  OR  COLUMN  WITH  ITS  WEAKEST  NEIGHBOR.  IT  c LFPS 
COMBINING  UNTIL  NO  CELL  HAS  A  FREQUENCY  LESS  THAN  TH  'FE,  OR 
UNTIL  THE  TABLE  IS  DOWN  TO  SIZE  2  BY  2.  THE  MEANS  ARE  COMPUTED 
AFTER  THE  COMPRESSING  STEP  IS  FINISHED. 

THE  COMPRESSING  FEATURE  PERMITS  THE  STANDARD  USE  OF  0  AS 
A  ROF  AND  A  COLUMN  LEVEL.  IF  SCORES  ON  A  ROW  VARIABLE,  FOR 
EXAF  LE,  ARE  PUNCHED  0-1-2-3,  FINE.  IF  JUST  1-2-3,  A  ZERO  ROW 
IS  INTERNALLY  CREATED  BUT  IS  REMOVED  BEFORE  MEANS  ART  COMPUTED. 

- LOOPING - 

IF  ONE  WISHED  TO  RUN  TH?  20  CRITERION  VARIABLES  THROUGH 
CODED  AGE  AGAINST  VAPIA8LE  4,  THEN  THE  CRITERIA  THROUGH  CODED  AGE 
AGAINST  VARIABLF  5,  ...,  AND  PINALLY  AGAINS'”  VARIABLE  20  (  OVER 
300  PAGES  OF  OUTPUT...  4-20,  EACH  DOING  21-40  ),  A  LOOP  OF 
THE  COLUMN  VARIABLES  IS  POSSIBLE.  HERE,  2  IS  THE  ROW  VARIABLF, 

4  THROOGH  20  ARE  (  EACH  )  TO  BE  COLUMN  VARIABLES  IN  TURN,  AND 
21-40  ARE  THE  CRITERIA  TO  BF  ANALYZED. 

THE  ROW  VARIABLE  IS  DEFINED  AS  USUAL  AND  CAN  BE  RE-COD3D.  IE 
NO  COL*  PHRASE  IS  POi’ND  IN  THE  PBYQ  CARD,  A  LOOP  IS  ASSUMED. 

PPYQ,  TN*A ,  ROW*C. AGE/3,  FIRST  =  21  S 
C0066666 566666666666 

ON  THE  SFCCND  CARD  ABOVE,  COLUMNS  1,  2  AND  3  APE  ZERO  (  OR 
COULD  BE  BLANK  ).  THPRPFO  .T ,  VARIABLFS  1,  2,  AND  3  ARE  NOT  USED 
AS  COLUMN  VARIABLES.  COLUMN  4  IS  A  6.  THFRF*ORF,  VARIABLE  4  IS 
USED  AS  A  COLUMN  VARIABLE.,  ALLOWING  6  AS  THE  HIGHEST  LEVEL  (  I.E., 
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7  ACTUAL  COLUMNS,  0- 1 -2- 7-4- 5- 6  ).  TWENTY  TABLES  ARE  RON 
(  VAFIABLES  21-40  )  BECAUSE  FIHST=21  WAS  CITED,  AND  40  IS  THE 
LAST  VARIABLE  IN  ^HIS  FILE.  AFTER  THIS,  COLUMN  4  ON  THE  LOOP 
CARD  IS  BLANKED  (  SINCE  IT  HAS  NOW  BEEN  DONE  )  AND  ANOTHER 
COLUMN  IS  FOUND,  AND  SO  FORTH. 


PR'S?  66 
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17.  OTHER  PROGRAMS 

DORNA*’’ 

GENVAR 
TCOR 
TTEST 
V  BAR 

***********************************************  **************** 
DOPWAT,  IN=A,  OOT=B  $ 

THIS  TAKES  A  COMPLETE  CAT?  (  NO  MISSING  DATA  ) 
INPOT  PILE  AND,  FOR  EACH  COLUMN,  COMPOTES  A  DnFBTN-WATSOM 
VALUE.  THESE,  GROUPED  AS  A  COLUMN  VECTOR,  MAKE  OP  THE  OUTPUT 
MATRIX.  IF,  FOR  EXAMPLE,  THE  INPUT  IS  600  BY  45,  THE  RESULT 
HILL  BF  45  BY  1 . 

***************************************  ************************ 


GENVAR,  IN=A,  OOT=B$ 
LABEL  CARDS  (I?  NEEDED) 
TRANSFORMATION  CARDS 
♦  END 


GIVEN  A  DATA  FILE ,  AND  PERHAPS  A  SUMMARY  FILE 
OF  IT  (MEANS,  VARIANCES,  ETC.),  PRODUCE  AN  CUTPUT  FILE  OF 
DATA.  THIS  CAN  BE  THE  ORIGINAL  VAPIABLES  AND/OR  TRANSFORMA¬ 
TIONS  OF  THEM,  OR  OF  SOME  OF  THFM . 

IN  =  NAME  OF  INPUT  FILF 
OUT  =  NAME  FOR  OUTPUT  FILE 

DES  =  NAME  OF  HERNS,  VARIANCES,  RANGES,  ETC.,  OF  IN.  IF  NO 

OPERATIONS  REQUIRING  I'HESF  APE  USED,  DES  CAN  BE  OMITTED. 

NC  =  NUMBER  OF  OUTPUT  COLUMNS,  IF  MORE  OR  LESS  "“HAN  THU 
NUMBER  OF  INPUT  COLUMNS. 

THIS  IS  NOT  NEFDED  IF  THE  OUTPUT  FILE  IS  TO  HAVE  THE  SAME 
NUMBER  OF  COLUMNS  AS  THE  INPUT  FILF. 

I?  THE  OUTPUT  HAS  MORF  COLUMNS  ^HAN  THE  INPU*%  LABFLS 

FOP  THE  NEW  VARIABLES  MUST  BE  SUPPLIED.  FACH  NFW 

LABEL  IS  ON  A  CARD,  IN  COLUMN  1-8.  THESE  CARDS,  IF  NFFDED, 

FOLLOW  THE  GENVAR  STATEMFN^  AND  AFF  FOLLOWED  BY  THE 

TRCA PD  CARDS  (TRANSFORMATION  CARDS). 

TH^RE  CAN  BE  A  NUMBER  (UP  TO  2CO)  OF  mF REFORMATION  CARDS, 

EACH  SofctfTING  AN  OPERATION  ON  A  VARIABLE  (CR  A 

RANGE  OF  VARIABLES).  A  CARD  WITH  *  END  IN  COLUMNS  1-4  MUST  FOLLOW 
THE  LAST  TRCARD . 


FORMAT  OF  TRANSFORMATION  CARDS... 


COL 

1-6 

TRCARD 

COL 

9-ID 

OPERATION  CODE. 

COL 

11-15 

FTRST  I  VARIABLE, 

PEFFPPTD  T0  NCW  AS  TA.  TF  BLANK 
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OR  ZERO,  IT  IS  SET  TO  1  AND  IB  (SEE  BELOW)  IS  SET 
to  THE  LA  ct  COLUMN  NUMBER.  IN  OTHER  WORDS,  ALL 
VARIABLES  WOULD  BE  INCLUDED  IN  THE  RANGE. 

COL  16-20  LAST  I  VARIABLE  (CALLED  IB)  .  IF  BLANK  OR  ZERO,  IT 
GETS  SET  TO  IA  (UNLESS  IT  WAS  ALREADY  SET  TO  THE 
LAST  COLUMN  NUMBER) . 

COL  21-25  FIRST  J  VARIABLE.  IF  BLANK  OR  ZERO  IT  IS  SET  TO 

IA. 

COL  26-30  FIRST  K  VARIABLE.  IF  BLANK  OP  ZERO  IT  IS  SET  TO 
IA. 

COL  31-35,  36-40,  ...55-60.  SIX  CONSTANTS  IF  NEEDED,  READ  IN 
6FS.0  FORMAT. 

IV  OENEPAL,  IA  OP  J  GOES  INTO  K.  A  J  VARIABLE  IS  NEEDED  IF 
COLUMNS  0-10  HAVE  THE  CODE  OF  A  BINARY  OPERATOR.  IF  IT  IS  AN 
ADD,  AND  I  A=4 ,  IB=8,  J=20,  K=30,  THEN  VARIABLE  4  ♦  VARIABLE  20 
ARE  PLACED  INwO  LOCATION  30.  SINCE  4  IS  NOT  B,  1  GFTS  ADDED  TO 
IA,  J,  AND  K,  AND  V5  ♦  V21  GOES  INTO  31,  ETC.,  UNTIL  V8  +  V24 
GOES  INTO  V34.  IP,  IN  THE  LAST  STEP,  FITHER  V8  OR  V24  WERE 
MISSING,  V34  WOULD  BE  SET  TO  MISSING,  FOR  EXAMPLE. 

THE  DATA  FILE  IS  PEAD  IN  ONE  ROW  AT  A  TIME.  ALL  TRCARD 
ACTIVITIES  ARE  PERFORMED  ON  THAT  POW  IN  THE  ORDER  THAT  THEY 
KER*  THEMSELVES  RFAD .  IN  OTHER  WORDS,  THE  SECOND  TRCARD 
OPERATES  CN  THE  RESULTS  OF  THE  FIRST.  THE  AREA  WHERE  THE  ROW 
IS  READ  IS  1000  WORDS  LONG,  SO  A  TEMPORARY  VARIABLE  CAN  BE 
GENERATED  IN  ONE  TRCARD  AND  USFD  BY  THE  NEXT  TRCARD. 

THR  OPERATIONS,  WHERE  X  IS  THF  IA  VARIABLE,  Y  IS  THE  J 
VARIABLE,  AND  Z  IS  THF  RESULT  (THE  K  VARIABLE).  THE  FIRST  24 
OF  THESF  ARE  BASED  ON  THE  BIMD  TR ANSGFNERATICNE  A  STARRED 

OPERATION  NEEDS  THE  SECOND  INPUT  MATRIX. 

1  SQPT(X) 

2  SQPT(X)  ♦  SORT  ( T ♦  1 .  ) 

3  LOGIO(X) 

«  EXP  (X) 

5  ASN  (SORT  (X)  )  ...  ARCSTNF  OF  SQUARE  ROOT  OF  X 

6*  »SN(S0B'T'  (V(N*1)  )  )  ♦  ASN  (SQRT  ((X+1.  )/ (N  +  1)  )  ) 


7 

1/X 

P 

Y.*C 

(NOT-.,,  c  IS  'rh'E  FIRST  CONSTANT) 

P 

T*C 

10 

x**c 

11 

X  ♦! 

12 

X-Y 

1  2 

X*  Y 

14 

X/Y 

15 

IF  X  . 

s FT  Z  TO  2.  FLEE  SET  7  TO  1.  (NOTE  - 

,UF.  M 

-AN.;  GRTJT  :F  THXh  OR  TQHAL  TO) 

If 

TF  X  . 

SE.  Y,  SET  Z  t0  2.  FI S E  SPT  Z  TO  1 . 

17 

lgg  m 

IP* 

X-M®AN 

?'»**  pr^nLT  IS  Tfip  ORIGINAL  SCOPE  WITH  THE  MEAN 

SUP'"D  AC^^D  p°OM  Tm,  tijp  *FAN  IS  pOUND  T  U  THE  DES  FILE. 

IQ* 

x/(sn 

off  X)  .  t)IVTDF  »Y  tHE  STANCAR  "  DEVIATION. 
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20  SIN  (X) 

21  COS(X) 

22  ATAN(X) 

23  X**Y 

24  C**X 

25  ABSOLUTE  VALUE  OP  X 

26  IP  X  =  CONSTANT  2, 3, 4, 5,  OP  6,  SET  Z  TO  C  (I. E. , 
CONSTANT  1).  IP  NOT,  SET  7  TO  X.  IE  THERE  APE  NOT 
CONSTANTS  2-6,  REPEAT  THE  LAST  ONE  THROUGH  THP  SIXTH 
POSITION. 

27*  IF  X  .GE.  XH3AN,  THEN  Z  =  2.  ELSE  Z-1. 

28*  (X-XMEAN)/XSD.  CONVERT  TO  A  STANDARDIZED  PORM. 

29  IP  X  .GE.  C,  Z»1.  IF  X  .LF.  -C ,  Z=3.  ELSE  Z=2. 

HERE,  IP  THE  X‘S  ARE  NORMAL  NIT H  MWAN  0,  VARIANCE 
1,  THE  USE  OP  0.43  AS  THE  CONSTANT  NILL  SEPARATE 
THE  SCORES  INTO  3  ROUGHLY  FQUAL  GROUPS. 

30  IP  X  .IE.  C(1),  Z«1.  THEN,  IP  X  .LP.  C  (2)  ,  Z  =  2.  , 

AND  SO  FORTH  THROUGH  f.  AS  IN  OPERATION  26, 

REPEAT  THE  LAST  CONSTANT,  TP  NF  CESS  ARY ,  UNTIL  THE  SIXTH 
CONSTANT  IS  PILLED.  IF  GREATER  THAN  ALL 
OP  THEM,  SET  Z  TO  MISSING.  THIS  IS  USPPUL  IN  SET¬ 
TING  UP  GROUPS  FOP  THE  FBYQ  PROGRAM. 

31  IP  X  IS  MISSING,  Z=C.  ELSE  Z=X. 

32  IP  C  (1 )  .LE.  X  .AND.  X  .LF.  C(2),  SET  Z  TO  Y.  ELSF 

SET  Z  MISSING.  THIS  IS  USED  TO  CHECK  RANGES  ON 

DATA. 

33  IP  (AS  IN  32)  X  IS  BETNEEN  C(1)  AND  C  (2)  ,  SFT  Z  TO 
C (3) .  IP  NOT, IF  X  IS  BFTHEEN  C(4)  ANDC  (5) ,  SET  Z 
TO  C  (6)  .  IP  STILL  NOT,  SET  Z  TO  MISSING. 

34  Z=X 

SOME  FXANPLES . 

TPCARD  01  1  5  1 

THE  ABOVE  CARD  SAYS...  COMPUTE  THE  SQUARE  ROOT  OF 
VARIABLES  1-5  AND  PLACE  THE  RESULTS  IN  LOCATIONS  1-5 
(I.E.,  REPLACING  THE  ORIGINAL  VALUES). 

TRCARD  11  13  IS  21  31 

VARIABLE  31  HILL  BE  VARIABLE  13  ♦  VAPIABLF  21, 

VARIABLE  32  HILL  BE  VARIABLE  14  ♦  VARIABLE  22, 

VARIABLE  33  HILL  B’  VARIABLE  15  ♦  VARIABLE  23. 

*********************** ************  ******** *******  ************* 


TCOR,  IN*A,  OU?*B  t 

T  VALUES  0?  PAIRED  OP  CORRELATED  DATA.  THIS  TAKES  A 
DATA  *TLE  AND  PRODUCES  A  SYMMETRIC  OUTPUT  MATRIX  OP  T  VALUES 
OP  DIFFERENCES  BETWEEN  SCOPES  IN  ALL  r«IRS  CE  COLUMNS  CP 
THP  DATA  MATRIX  TAKPN  IN  PAIRS.  HISSING  DATA  IS  ALLOHFD. 

HR*N  A  SCORE  IS  POUND  TO  MISSING,  IT  IS  NOT  USED,  AND  ANY  T 
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SCORES  INVOLVING  TIIv.T  VARIABLE  DC  NOT  USE  THAT  ROW  OP  DATA  AT  ALL. 

VERSION  62  -  THE  INPUT  FILE  CAN  HAVE  HP  TO  80  COLUMNS. 

IN  *  INPUT  DATA  FILE  NAME. 

OUT  =  NAME  OF  SYMMETRIC  MATRIX  OF  T  SCORES. 

******  ****4'*#  *******************************************  ******* 

T^FST,  TN=A ,  OUT=D  $ 

T  VALUES  OF  UNCORRELATEC  DATA.  THIS  TAKES  A  DATA 
*ILE  AND  PRODUCES  A  SYMMETRIC  OUTPUT  MATRIX  OF  T  VALUES. 

THE  1,  2  POSITION  OF  THE  OUTPUT  MATRIX  REPRESENTS 
A  TEST  OP  THE  SIGNIFICANCE  OF  THE  DIFFERENCE  BETWEEN  THE 
MEAN  OF  ALL  THE  NON-MISSING  SCORES  IN  COLUMN  1  OF  THE  INPUT  AND 
COLUMN  2 ' S  MEAN.  THE  POSITIONS  OF  THE  SCORES  IN  COLUMN  2  OF  THE 
INPUT  FILE  COULD  PF  REARRANGED  IN  SOME  RANDOM  WAY,  KEEPING  COLUMN  1 
UNCHANGFD  (EXAMPLE,  EXCHANGE  4,2  AND  7,2)  AND  THE  T  OF  1,2  WOULD  NOT 
CHANGE.  (IN  SUCH  A  SITUATION,  THE  OUTPUT  OF  TCOR  WOULD  PROBABLY 
BE  AFFECTED.) 

VERSION  52  -  THE  INPUT  FILE  CAN  HAVE  UP  TO  150  COLUMNS. 

IN  =  INPUT  DATA  FILE. 

OUT  =  NAME  OF  OUTPUT  T  MATRIX.  THE  DIAGONAL  CONTAINS 

STANDARD  ERRORS. 

*************************************************************** 

VBAR  =  (I)  $ 

THE  160  P-STAT  SYSTEM  USES  A  VERTICAL  BAR  CHARACTER  (  A 
12/7/8  PUNCH  )  IN  CROSSTAB  TO  FOPMAT  TABLES.  THIS  OPERATION  REPLACES  THAT 
CHARACTER  WITH  THE  FIRST  CHARACTER  INSIDE  THE  PRENS. 
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18.  CREATING  A  P-STAT  FILE  FROM  CARDS  (  DATA  ) 

*************************************************************** 

DATA  =  A,  NV  =  20,  DES  =  D  $ 

THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  READ  DATA  PUNCHED 
ON  CARDS  AND  PRODUCE  A  P-STAT  DATA  FILE  ON  TAPE  OR  ON  DISK.  IF  THIS  IS 
DONE  CORRECTLY,  IT  SHOULD  NOT  BE  NECESSARY  TO  TOUCH  THES*  CARDS 
AGAIN  AS  LONG  AS  THE  OPERATIONS  THAT  APE  TO  BE  PERFORMED  ON  THE 
DATA  ARE  WITHIN  THE  RANGE  OF  P-STAT' S  OPERATIONS.  A  CONSIDERABLE 
AMOUNT  OF  CHECKING  AND  VALIDATING  IS  DONE  AS  THE  CARDS  APF  READ. 

IT  IS  USUALLY  COSTLY  TO  READ  THE  SAME  RAW  DATA  CARDS  THROUGH 
THE  DA'f'A  PROGRAM  ON  REPEATED  RUNS.  IF  THERE  ARE  MOPE  THAN  A  HUNDRED 
OR  SO  INPUT  CARDS,  AND  IF  THE  FILE  IS  GOING  TO  BE  USED  ON  A  NUMBER 
OF  SEPARATE  P-STAT  RUNS,  SAVING  THE  FILE  (  USING  THE  SAVE  OPERATION  ) 

ON  A  USE PS  PERMANENT  DATA  TAPE  IS  ADVISABLE.  IF  THE  FILF  IS  VERY 
LARGE  (  PERHAPS  2000  BY  150  ),  SO  THAT  THE  TIME  SPENT  USING  THE  FIND 
OPERATION  IS  SIGNIFICANT,  USr NG  AN  ASSIGN  /  ATTACH  TAPE  AS  WELL  IS  A 
PRUDENT  THING  TO  DO.  A  TYPICAL  RUN  MIGHT  DO  SOME  FREQUENCIES, 

WITH  THE  INPUT  FILE  ON  AN  ATTACH  TAPE  AND  THE  DESCRIPTION  FILE  OF 
TT  ON  A  PERMANENT  DATA  TAPE  (  OP  ON  CARDS  ). 

IDENTIFIERS.. . 

DATA=A ,  NV=20S 

THE  RESULTING  FILE  WILL  BE  NAPFE  A,  AND  IT  WILL  HAVE  20  COLUMNS 
(VARIABLES) .  THESE  TWO  IDENTIFIERS  ARE  ALWAYS  NEEDED. 

VERSION  52  -  NV  CANNOT  EXCEED  U50.  FROM  1  TO  50  DATA  CARDS  PEP 
FILE  ROW  ARE  ALLOWED. 

DES=D, 

THIS  IS  FREQUENTLY  USED.  D  WILL  BE  A  DESCRIPTION  FILE, 

NV  ROWS  BY  6  COLUMNS.  EACH  OF  THE  ROWS  HAS  THF  MEAN,  VARIANCE, 
STANDARD  DEVIATION,  LOWEST  SCCFE,  HIGHEST  SCORE,  AND  N 
(THE  NnMBFP  OF  NON-MISSING  SCORES)  OF  THE  CORRESPONDING  COLUMN 
OP  THF  DATA  FILE. 

PRINT, 

USE  OF  THIS  IDENTIFIER  CAUSES  EACH  DATA  CARD  TO  BE  PRINTED 
AS  IT  IS  READ  IN. 

PLUS  *  12, 

CONSIDER  A  VARIABLE  CODED  ZERO  TO  NINE,  AND  ALSO  MINUS  AND  PLUS. 

IF  ' PLUS=1 2 '  IS  INDICATED,  ANY  VARIABLE  PUNCH FD  AS  A  PLUS  SIGN 
(OP,  IF  MORE  TH A  N  ONE  COLUMN,  PLUS  SIGNS  ),  WILL  B*  CONVERTED 
BY  P-STAT  INTO  A  TWELVE.  IF  'PLUS  =  33*  WEP»  CITED,  THE  PLUSES 
(  SOMETIMES  CALLED  *12'  OR  'Y'  PUNCHFS  )  WOULD  BFCOMF  33,  ETC. 

NOTE  -  'PLUS'  WILL  CAUSE  SEARCHING  EOF  BOl  H  A  12  PUNCH  (  A  ♦  ON  AN 
026  KEYPUNCH  )  AND  A  12-6-8  PUNCH  (  A  ♦  ON  AN  029  KEYPUNCH  ). 
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MINOS  *  11, 

THIS  HANDLES  MINOS  SIGNS  (  SOMETIMES  CALLED  '11'  PUNCHES  OR  »X» 

PUNCHES  ).  SEE  ABOVE  DESCRIPTION  OF  'PLUS'.  WHEN  THESE  ARB  USED, 

IT  IS  OCCASIONALLY  NECESSARY  TO  RECODE  ZEROS  INTO  TENS.  THIS  CAN 
BE  DONE  IN  A  SUBSEQUENT  STEP  OSING,  FOR  EXAMPLP, 
c  FO®  (  1-20),  I®  .X.  EQ  0  SET  .X.  TO  10  ) 

TAPE  =  91, 

THIS  INDICATES  THAT  THE  CARDS  ARE  NOT  INCLUDED  IN  THE  USUAL  INPUT 
CA^D  DECK,  BUT  ARE  INSTEAD  ON  TAPE  91,  AS  80  CHARACTER  RECORDS. 

NUMBERS  91-95  ARE  NOT  USED  BY  PSTAT.  A  USER,  ON  PRINCETON'S  360, 

WOT1LD  NEED  TO  SUPPLY  THE  'DD'  CARD  DESCRIBING  TAPE  91  (  IP  THIS 
OPTION  WERE  USED  ).  SEE  THE  SECTION  'JCL  POR  REFERENCING  TAPES 
ON  TH®  3*0'  . 

EPRTNT=  MAXIMUM  NUMB5R  OF  ERRORS  TO  BE  PRINTED. 

I?  THIS  IS  OMITTED,  THE  FIRST  100  BAD  SCORES  WILL  BE  PRINTED, 

BUT  NO  MORE.  THIS  IS  SO  A  PEPEATED  ERROR,  ONE  THAT  IS 
WRONG  ON  EVERY  CASE,  DOES  NOT  PRINT  INDEFINITELY. 

AN  ERROR  IS  A  SCORE  THAT  NAS  NOT  BLANK  OR  MISSING 

BUT  WAS  STILL  SET  TO  BE  MISSING  BY  THE  HIGH,  LOW,  OR  VALID 

PUNCHING  TESTS  (DESCRIBED  BELOW). 

EKILL*  "A TIMUM  NUMBFR  OP  ERRORS  PERMITTED  AT  ALL. 

IE  OMITTED,  THIS  IS  SET  TO  NV*10.  WHEN  EXCEEDED,  THE  DATA 
PROGRAM  PRINTS  OUT  THE  SUMMARY  OF  THE  CARDS  READ  SO  FAR, 

PUT  Then  KILLS  THE  RUN. 

CARDS*  UPPER  LIMIT  ON  THE  NUMBER  OF  DATA  CARDS  TO  BE  READ.  IF  THIS  IS 
OMITET ,  "’HE  DATA  PROGRAM  GENERATES  A  DEFAULT  VALUE  OF 
1,000,000.  IE,  FOR  EXAMPLE,  'CARDS  =  ICO'  WERE  PUNCHED,  THE  PROGRAM 
WOULD  READ  ONLY  THE  FIRST  IOC  CARDS  FFOH  THE  FILE  WHERE  THE  CARDS  ARE. 
THF  PROGRAM  WOULD  THEN  PRINT  ITS  P®POPT  AND  GO  ON  TO  THE  NEXT  STEP. 

ONE  SHOULD  ALWAYS  CHECK  OUT  ONE'S  LABELS  AND  FORMATS  WITH  A  SMALL 
NUMBER  OF  INPU'’’  CA®DS  BEFORE  READING  A  LARGE  AMOUNT  OF  INPUT  CARDS. 
NOT®... THF  DEFAULT  SEATING  OF  1, COO, 000  IMPLIES  THAT  THE  END  OF  THE 
INPUT  CARD  FIL®  IS  INDICATED  BY . 

1.  A  ' *  ®NO'  CA®D  IF  TH®  CAPDS  FOLLOW  THF  '*CARDS'  CARD. 

0°.  .  . 

2.  A  ' *END '  CARD  (  OF  AN  FNDFTLF  )  I®  'TAPE*'  IS  BEING  USED. 
•CA.®DS*'  SHOm.G  NOT  9®  USED  UNLESS  'TAPE*'  IS  ALSO  USED. 

CONS  IDE  P, . . 

DATA* A X,  N V = 2 1 ,  OFS=D,  ®PRINT=3C,  ®KILl=5nC,  TAPE*91,  CARDS*35D, 

MTNUS*11  $ 

TH®  *ILE  WILL  NANtrn  'AX'. 

I*  WILL  HAVE  ?1  COLUMNS. 

A  DESCRIPTION  EIT  r  OE  AX  WILL  P*  NAMED  T. 

">*!*  pt»st  on  r-c rho s  (PAD  PUNCH® S ,  HIGH  OF  LOW  SCORES)  WILL  BE 
n®INTEr . 

IE  rpo  OCCUR,  THE  RUN  VIIL  PE  KILLED. 
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THE  DATA  CARDS  ARP  ON  TAPE  91. 

350  CARDS  WILL  BP  READ  PROM  THAT  TAPE. 

A  SCORE  PUNCHED  AS  JUST  A  MINUS  SION  HI LL  BECOMF  AN  11.  . 


THERE  ARE  SEVERAL  TYPES  OF  CARDS  OTHER  THAN  DATA  CARDS 
READ  BY  THE  PROGRAM.  THEIR  USE  IS  SHOWN  BY  EXA  MPLFS  BELOW. 
THEY  ARE... 


1  *FMT 

2  *LAB 

3  *HISH 


4  ♦LOW 

5  *MISS 


6  *CARDS 


7  PEND 


THIS  HAS  THE  FORMAT  OF  THE  DATA  CARDS. 

IF  USED,  PROVIDES  LABELS  FOR  THE  VAPIAPLFS. 

IF  USED,  A  CASE  FOLLOWS  IT  IN  WHICH  EACH  PUNCHED 
SCORE  IS  THE  HIGHEST  PER MITTFD  POP.  THAT  VARIABLE. 

ANY  HIGHEP  ARE  BAD. 

IF  USED,  LIKE  *HIGH  BnT  A  LOW  RANGE  TEST. 

IF  USED,  A  DUMMY  CASP  POLLOWS  IT.  LAT’R ,  ANY 
SCORES  ON  REAL  DATA  THAT  MATCH  ITS  PUNCHING 
ARE  SET  TO  HISSING.  THE  PUNCHING  CAN  BE 
ALPHA-NUMERIC. 

THIS  SAYS..  THATS  ALL  THF  CONTROL  INFORMATION. 

THIS  CARD  MUST  BF  PRESENT. 

DATA  CARDS  ‘’OLLOW  THIS  (UNLESS  TAPE=N  WAS  USED)  . 

THIS  FOLLOWS  THE  LAST  ACTUAL  DATA  CAPD  TO  THE  'DATA' 

PROGRAM  AND  INDICATES  THAT  ALL  THE  DATA  CARDS  HAVE 
BEEN  READ.  IP  CARDS=N  WAS  OSFD,  ♦END  SHOULD  NOT  BE  USED. 
TP  TAPF-N  WAS  USED,  THE  END  OF  FILE  SERVES  AS  A  *END. 


AN  EXAMPLE . 

DAT A® A,  NV*10 ,  PRINT  $ 

♦PHT  (  1011  ) 

♦CARDS 

HERE  ARE  THE  DATA  CARDS,  PERHAPS  3C  OP  THEM. 

♦END 


THIS  WILL  PRODUCE  A  PILE  WITH  1C  COLUMNS,  NAMFD  A.  TR* 

DATA  CARDS  APE  PUNCHED  AS  DESCRIBED  IN  THE  ♦FMT  CARD  (USING 
COLUMNS  1-10,  PUNCHED  AS  INTEGEPS,  CNS  COLUMN  PER  VARIABLE). 

THE  *CARDS  CARD  SAYS,...  HERE  COME  THE  USERS  ACTUAL  DATA 
CARDS.  THERE  CAN  BF  ANY  NUMBPP  OF  THEM.  TH*  *IND  CARD  SAYS 
THAT  IS  THE  END  OP  THE  DATA. 

THE  RESULTING  FILE  A  HAS  ’’’HF  ECWS  LABELLED  1.1  THRU  L3C 
(IP  30  ROWS)  AND  THE  COLUMNS  AFE  LABELLED  LI  THRU  110.  IF  A 
VARIABLE  WAS  FNTIRELY  BLANK  (OP  WAS  MISPUNCHPD,  LIKE  A  LETTER 
INSTEAD  OP  A  NUMBER),  THAW  VARIABLE  EOF  THAT  CASE  IS  CONSIDERED 
BT  P-STAT  TO  B?  MISSING. 


THE  INPUT  CARDS  WILL  BE  PRINTED  BECAUSE  •PRINT*  WAS  SPECIFIED 
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AN  EXAMPI* 


DATA=B,  NV  =  3$ 

♦LAB  INPOPT,  EXPORT,  GROSS 
♦FMT  (  10X  P10.2,  P10.2,  F10.2  ) 

♦CAPPS 

HERE  ARE  THE  DATA  CARDS,  FOP  EXAMPLE,  50  OF  THEM. 

♦  END 


HERE,  B  WILL  BE  50  BY  3.  THE  COLUMNS  APE  LABELLED  INPORT, 
EXPORT,  AND  GROSS.  THE  ROWS  ARE  LABELLED  Li  THRO  L50.  ON  THE  DATA 
CARDS,  TNPORT  IS  FOUND  IN  COLUMNS  11-20  (10X  MEANS  SNIP  ID 
COLUMNS),  EXPOPT  IN  COLUMNS  21-3C,  AND  GROSS  IN  COLUMNS  31-40. 

IF  IN  COL.  11-20  THERE  IS  NO  DECIMAL  POINT  PUNCHED,  IT  WILL 
BE  ASSUMED  TO  BE  BETWEEN  COL.  18  AND  19.  F10.2  MEANS  A  DECIMAL 

POINT  TYPE  NUMBER  (A  FLOATING  POINT  NUMBER)  USING  10  COLUMNS  ON 
THE  CARD,  OF  WHICH  THE  RIGHTMOST  2  ARE  TENTHS  AND  HUNDRETHS 
PLACES  (  IE  NO  POIN'”  WAS  EXPLICITLY  PUNCHED  ). 

THIS  *FMT  CARD  COULD  HAVE  BEEN 
♦FMT  (  1C  X  3F1C.2  ) 

AOATN,  I®  A  VARIABLE  ON  A  CASE  TS  ENTIRELY  PLANE  OR  IS 
MTSPUNCHFP ,  THA T  SCORE  IS  SET  TO  THE  MISSING  SCORE. 


NOW,  SOM*  *  LA  B  EXAMPLFS,  AND  THE  RULES  FCP  LABFLS... 

DATA=A ,  NV=4$ 

♦LAB  AGE,  HEIGHT,  WEIGHT,  SEX 

. O'*  . 

DATA-A,  NV=US 
♦LAP  AO* 

*LABH*I GHT 

♦LAB  WEIGH1”,  SpX 

1  ,  -  ffjwnF  CAN  PE  AS  MANY  "LAB  CARDS  AS  ONE  NFEDS .  EACH  MUST  START 
WITH  *  LA  B  IN  COLUMNS  1  *”0  4. 

-> .  -  T.  A  PPL  CA  w  B  *  1-R  CHARACTFFS.  "'HR  FIRS*  MUST  BE  A  LETTER. 

THE  D'S"  (Iw  ANY)  "AN  ^  LETTERS,  NUMBERS,  op  A  DECIMAL  POINT. 
A  BLANK  CANNOT  FE  »A,,'r  OF  A  I  ABrL. 

3. -  A  CONMA  ENDS  A  LA ° EL  (PU1”  TS  VO1”  PART  OF  THE  LABFL)  . 

4. -  YOU  MAY  L*AV*  OE*  A  COMMA  IF  THE  PEST  OF  THE  CARD  IS  BLANK. 

5. -  I*  YOU  00  NOT  SUPPLY  LABELS,  THF  PROGRAM  GENERATES  THEM 

(Li  for  VARIAPI*  1,  L2  FOR  VARIABLE  2,  FTC • ) • 

5.-  THE  *LAB  (TN  COL  1 -U )  CAP"  OF  CARDS  CAN  BE  ANYWH*PF  BFFORE 
•  HE  ‘CARDS  CA n ” .  I*  SFVrRAL,  THEY  MUST  RE  TOGETHER. 

7 .  -  t»  »i  V  =  2  D  ANO  Tp  Yr!!  HAVE  A  *1  AB  CAFD  (S)  ,  THFRE  MUST  THEN  BE 
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EXACTLY  20  LABELS. 

CONSIDER . 

DATA«A,  NV*6$ 

♦LAB  AGE,  ITEM21,  ITFM22,  ITEM23,  ITEM24,  ITFM26 

THIS  CAN  BE  ABBREVIATED  BY . 

♦LAB  AGE,  ITEM* (21,25) 

1. -  THE  STAR  FORM  OP  LABEL  CAN  GENERATE  A  NUMBER  OF  LABELS. 

2. -  ITS  FORM  IS  ITEM* (NA , NB) . 

3.  -  IT  HILL  GENERATE  NB-NA+1  LABELS. 

4. -  IT,  OF  COURSE,  PLUGS  NA  IN  FOP  THE  STAR,  THEN  NA*1,  UNTIL 

NB  HAS  BEEN  USFD. 

5. -  APTER  THE  PLUG-IN,  IT  STILL  MUST  BF  1-8  CHARACTERS. 

6. -  *  (6,8)  IS  FINE.  (  HOWEVER,  YOU  WILL  GET  L5,L6,L7,AND  L8.  ) 

7. -  ITEM*  (1,9)  IS  FINE. 

8. -  VLABEL*  (101,110)  IS  WRONG  BECAUSE  IT  WILL  B*  OVER  8  CHARACTERS. 

9. -  ♦ITEM (1 , 30)  IS  WRONG.  THE  STAR  MUST  BE  CN  THF  RIGHT. 

10-  *  (61,80)  IS  PINE. 

11-  *L A3  AGE,  ITEM* (11,20) ,  HEIGHT,  SCORE*  (31  ,40)  IS  FINE. 


NOW,  FORMAT  ASPECTS.  HOW  TO  READ  ROW  LABELS,  AND  HOW 
TO  BE  SURE  ALL  THE  CARDS  OF  A  ROW  APE  TOGETHER.  A-TYPE  FORMAT  IS 
USED  FOP  THESE  PURPOSES. 

♦FMT  (  A6,  10P1.C  )  SAYS...  USE  COL.  1-6  AS  A  ROW  LABEL,  FIND 
10  VARIABLES  IN  COLUMNS  7-16. 

♦FMT  (  A 5,  75F1.0  /  30X  A5,  2"F1.C  )  SAYS...  THERE  ARE  2  DATA 
CARDS  POR  EACH  CAS*.  USE  COL.  1-6  OF  CARD  1  AS  THF  ROW 
LABEL,  FIND  76  VARIABLES  IN  CCL .  6-80  OF  CARD  1.  THEN, 

ON  CARD  2  FOR  THIS  CASF,  COL.  31-35  MUST  MATCH  FXACTLY 
ALL  EARLIER  A  FIELDS  FOR  THF  CASE  (NAMELY,  COL.  1-6  OF 
CARD  1). 

1. -  A-EIFLDS,  IF  MORE  THAN  1,  MUST  EE  THE  SAME  WIDTH  AS  FACH 

OTHER. 

2. -  IE  OVER  8  CHARACTERS,  ALL  PIGHT,  BUT  ONLY  THE  ETPST  8  WTLL 

BE  USED  AS  TH*  ROW  LABEL. 

3. -  THERE  CAN  BE  ONLY  1  A  FORMAT  FIELD  PER  INPUT  CAPD.  IT 

CAN  BF  ANYWHERE  ON  THE  CARD,  AND  CAN  CONSIST  OP  ANYTHING  AT 
ALL (THAT  CAN  BE  READ  BY  THE  CAPD  READER).  WHEN,  FOR  EXAMPLE, 
THE  6  3RD  CASE  TS  READ,  THE  PROGBAM  TRIES  "0  MAKF  A  ROW  LABEL 
OUT  OF  THE  'A'  FIELD.  IT  SUBSTITUTES  EOP  ANY  CHAPACTEP  NOT 

A  LETTER,  PERIOD,  OR  NUMBER  AND  AL^O  SQUEEZES  OUT  BLANKS.  IP 
ALL  BLANK  OR  ALL  PERIODS,  TT  SUFPLTES  *L63'.  IF  THE  LABEL  DOES 
NOT  S"*APT  WITH  A  LETTFP,  IT  GENERATES  AN  INITIAL  *L'.  THUS, 

•  3  A  *F*  BECOMES  • L3A. B  * .  ALSO  •  123456781 2 3  PFCCMFS  •12345678*. 

.-  I»  CARDS  APE  OUT  OF  OP  DPR  (IF,  IN  Trf  ABOV*,  CARD  1  CCL. 


4 
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1-5  IS  NOT  THE  SAME  AS  CARD  2  CCL.  31-35)  THE  PROGRAM 
GRUMBLES,  THROWS  OtTT  ALL  POT  THE  LAST  READ  CARD  OF  THAT  ROW 
AND  TRIES  AGAIN  WITH  THAT  (LAST)  CARD  AS  THE  FIRST  OP  A  NEW  ROW. 

5. -  IF  IT  FAILS  5  *IHEF  WITHOOT  ANY  SUCCESS,  IT  GIVES  UP. 

6. -  *EMT  (  A6 ,  Fl*.2  / 

♦  PMT  10X  A6,  E3.1  )  IS  FINE. 

COLUMNS  5-80  CAN  BE  USFD  FOP  THE  FORMAT  TEXT. 

IP  THF  FORMAT  TEXT  DOES  NOT  FIT  IN  COLUMN  5-80  OP  THE  PIRST 
*FMT  CARD,  ANOTHER  *FMT  CARD  FOLLOWS,  AND  SO  ON. 


HOW  TO  BE  SURE  THE  CARDS  OP  A  ROW  ARE  REALLY  IN  THE  RIGHT 
nRDEP . . . 

*?MT  (  A 5,  IX  10F1.0  /  A5 ,  IX  3F1.C  ) 

HpPE,  THE  A-CHECK  CAN  BE  GOOD  EVEN  THOUGH  THE  2  CARDS  POR 
THIS  ROW  WERE  SWAPPED.  SUPPOSE  COL.  6  ON  CARD  1  CONTAINS  THE 
CHARA CTF?  1,  COL.  6  ON  CARD  2  CONTAINS  THE  CHARACTER  2.  THEN... 

*EMT  (  A5,  *1*,  1OF1.0  /  A5,  *2*,  3F1.0  ) 

WHEREVER  2  STARS  APPEAR  WITH  BLANK  OP  NCN  BLANK  CHARACTERS 
BETWEEN  THEM,  IT  MEANS  THE  CONTENTS  OF  THE  INDICATED  COLUMNS 
OF  THE  DATA  CARDS  SHOULD  EXACTLY  DUPLICATE  WHAT  IS  BETWEEN 
THE  STARS. 

*FHT  (  *TR*,  A10,  F2.0,  *PELHUB*  /  *2W*,  A10  ) 

HEPP,  COL  1-2  OF  CARD  1  (  OF  A  CASE  )  MOST  BE  IR,  COL  15-20  HOST  BE 
RELH03,  AND  COL  1-2  C?  CARD  2  MUST  PE  2W. 

*»MT  (  *  *,  9X  3*KZ*  /  A5,  20F1.0,  55*  *  ) 

HER*,  COL.  1  OP  CARD  1  MUST  PE  PLANK,  CCL.  11-16  MUST  BE 
KZKZKZ  (NOTE,  3  USES  OF  KZ) ,  AND  CO I .  26-80  OF  CARD  2  MOST  BF  BLANK. 

1. -  THr  ONLY  KrYPUNCHABLE  CHARACTER  THAT  CANNOT  BE  BETWEEN 

2  STARS  IS  A  STAR. 

2. -  STAR  FIELDS  CAN  PE  USED  WITHOUT  RESTRICTION. 

3.  -  IF  A  CHECK  * A ILS,  THE  PROGPAM  GRUMBLES,  THROWS  OUT  ALL  BUT 

THE  LAST  °EAD  CARD  OE  THAT  ROW,  AND  TRIES  AGAIN  WITH  THAT  (LAST) 
CARD  AS  THF  FIRST  OF  A  NEW  ROW.  AGAIN,  5  QUICK  PRRORS  LOSFS 
THE  GAME. 
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OTHER  FEATURES .  -X  AND  T. 

* FMT  (  A6,  -X  P1.0  ) 

COL.  1-6  ARE  A  LABEL,  -X  SAYS  MOVE  BACK  1  COLUMN,  SO  THE 
F1.0  CAN  READ  COL.  6  ALSO. 

1.-  THE  FOLLOWING  ARE  ALL  LEGAL.  -X,  -7X,  -6QX,  AS  LONG  AS 
YOU  DO  NOT  HOVE  OP?  THE  CARD.  (  A10,  -20X. ..  IS  A  LOSER. 

SO  IS  (  A1C,  80X. .  . 

♦  PUT  (  A 6 ,  T80,  FI.O,  T6,  P1.0,  T80,  *7*  ) 

TN  MEANS...  SET  THE  POINTER  SO  THAT  THE  NEXT  COLUMN  USED 
IS  COLUMN  N.  HERE  THE  LABEL  IS  IN  CCL.  1-6,  THE  FIRST  VARIABLE 
IS  READ  PROM  COL.  80,  THE  SECOND  FRCM  COL.  6  (AGAIN).  THEN 
COL.  80  IS  CHECKED  OUT  AS  A  7.  THEREFORE,  ALL  ROWS  OP  THIS 
FILE  WILL  HAVE  A  SCORE  OF  7  ON  VAFIABLF  1. 


A  LARGE  EXAMPLE 

D AT A=  A ,  DES=D,  NV=20$ 

♦LAB  AGE,  *(2,20) 

♦FMT  (  A6,  4X  15,  T31,  *12332*,  19F1.0,  T71 ,  E10.5  ) 

♦  HIGH 

A  CARD  (  ONE,  BECAUSE  THERE  IS  ONLY  1  CARD  PER  CASE) 

♦  LOW 

A  CARD 

♦  MISS 

A  CARD 

♦CARDS 

A  NUMBER  OF  DATA  CARDS 

♦  END 


THERE  ARE  3  NSW  THINGS  HERE. 

♦HIGH-  AFTER  THIS  CA"D  SHOULD  COME  A  SFT  OF  DATA  (A  ROW,  A 
CASE)  CORRECTLY  SEQUENCED  (  A  FIELDS  AND  STAR  FIELDS,  IF 
USED).  HOWEVER,  THE  NON  BLANK  SCOPES  ON  THIS  CASE  DEFINE  THE  HIGHEST 
ALLOWABLE  SCORE  ON  EACH  VARIABLE.  WHEN  ACTUAL  DATA  IS  READ, 

ANY  SCORES  EXCEEDING  I*  APE  SFT  TC  MISSING. 

IF  A  SCORE  IS  BLANK  ON  THE  *  HIGH  CASE,  THE  PROG FA  M  IGNORES 
THE  HIGH  T*ST  ON  THAT  VARIABLE 

♦  LOW-  SAME  AS  *  HIGH  BUT  THE  LOW  END. 

♦MISS-  AGAIN,  MUCH  THE  SAM*,  BUT  THIS  IS  PFAD  TN  8CA1  FORMAT. 

THIS  PERMITS  MISSING  DATA  TO  BF  OTHFP  PUNCHINGS  BFSTDFS  BLANK. 

1.-  ?V*N  IE  ♦MISS  ts  USFD,  BLANKS  STILL  D^ETN*  MISSING  SCORES. 
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THIS  GIVES  2  SHOTS  AT  IT. 

2.  -  ♦  MISS  CAN  COMP  ANYWHERE  BEFORE  THE  ♦CARDS  CARD. 

3. -  •■HIGH  AND/OP  *LOW  MTIST  BE  AFTER  THE  ♦  FHT  CARDS,  BECAUSE  THE 

FORMA'”  IS  USED  TO  READ  THEM. 


VALIDITY  CHECKING 


CONSIDER  THE  CHARACTERS  12.73  PFAD  IN  5*1  FORMAT  FROM  A 
CARD.  WE  WTSH  TO  PE  SURE  THEY  ARE  A  VALID  NUMBER.  ASSUME 
THEY  ARE  IN  AREA  C,  DIMENSIONED  5,  AND  WF  ALSO  HAVE  THE 
FOLLOWING  TABLE  LTAB,  DIMENSIONED  7  BY  9. 

♦  OP  -  200  f  07  000 

BLANK  125  056  700 

DIGIT  443  408  883 

DECIMAL  POINT  990  300  000 

E  006  GSO  ono 

OTHER  000  00O  OCO 

RESULT  124  342  752 

WE  HSF  THE  FOLLOWING  FORTRANISH  CODE... 

LCOL  -  1 

DO  50  I  =  1,  5 

CALL  PSNVAL  (  C  (I)  ,  LRCW  ) 

r  PSNVAL  SETS  LRCW  TO  1  IF  C(I)  IS  A  ♦  OP  A  TO  2  IF  ITS 

C  A  PLANK,  3  IF  ITS  A  DIGIT,  4  IF  A  DECIMAL  POINT, 

C  5  tP  AN  F,  AND  6  IF  OTHPP. 

LCOL  -  LTAB  (  L"OW,  LCOL  ) 

I”  (  LCOL  )  ERROR,  ERROR,  50 
c/x  CONTINUE 

C  WE  ARE  DONE.  NOW  ALT  DFPENDS  ON  WHAT  COLUMN  WF 

C  FTNISHE”1  WI^H. 

L-ryp®  =  LTAB  (  7,  NCOL  ) 

GO  TO  (  BLANKS,  ERROR,  INTEGER,  F  TYPE,  F  TYPE  ),  LTYPE 

THIS  °ROCEDUD  E  CHECKS  VALID  CHAPACTFRS  IN  B0A1  FORM  EEFORF 
THEY  ART  CO NVFPTE”* .  0*  COURSE,  IT  TAKES  TIME  TO  TO  THIS. 

STPATOHT- TOWARD  FEARING  IN  ONE  TFSm  TOOK  32  SECCNDS.  THIS 
PROGRAM  WITH  CHECKING  TOOK  S6  SFCCNDS. 

I1”  SHOULD  PE  NOtfc  THAT  PSNVAL  (  CN  THE  7094  )  WAS 
A  5  INSTRUCTION  F.AP  PROGRAM  (  ZAC,  LDQ* ,  CAQ,  SLK* ,  TRA)  . 

WHEN  THIS  «rTIVI'T’Y  ’AS  IN  C*URF  FORTRAN,  THE  T*ST  PUN  TOOK  9C  SECONDS. 

NOT*1  "HAT  ALL  "H*  FOLLOWING  FA  T  I . . . 

12.  .7 
12.  K? 

♦  ♦723 
1*7.? 

1  .73 
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IP.  DATA  MODIFICATION  AND  GENERATION  USING  FOR/IE/SET/SFTX 

FOR,  IF,  SET,  SETT  STATEMENTS . 

THESE  STATEMENTS  PERMIT  ONE  TC. . . 

GENERATE  NEW  VARIABLES  (I.E.,  COLUMNS)  IN  THE  FILE. 
MODIFY  EXISTING  VARIABLES. 

GENERATE  AND/OR  MODIPY  VARIABLES,  CONTINGENT  UPON  THE 
RELATIONSHIPS  OF  VALUES  IN  THE  ROW. 

DELETE  ROWS,  QUIT  THE  OPERATION,  OR  QUIT  THE  FNTIRF 

RUN,  ALSO  CONTINGENT  UFON  THE  DATA  IN  A  GIVEN  ROW. 
WEIGHT  ROWS  (USE  CERTAIN  ROWS  MORE  THAN  0» ~F) . 

ALL  THIS  TAKES  ADVANTAGE  OF  THE  PACT  THAT  EACH  ROW  IS  PROCESSED 
SEPARATELY. 

AN  IF  STATEMENT  MUST  BEGIN  WITH  POF ,  IF,  SET,  OR  SETX.  THERE 
CAN  BE  UP  TO  THREE  MAIN  SECTIONS. 


1.  'FOR*  DEFINES  A  SERIES  OF  VARIABLES,  EACH  OF  WHICH  IS 
USED,  IN  TURN,  BY  THE  PEST  CE  THE  STATEMENT.  IT  IS 
SOMEWHAT  LIKE  \  DO  LOOP.  IF  A  'FOR'  LIST  IS  USED, 

IT  MUST  BE  THE  PIPST  THING  IN  THE  STATEMENT. 

2.  A  LOGICAL  TEST  (OR  A  SERIFS  OP  TESTS)  YIELDS  A  RESULT  FOP 
EACH  FOW  WHICH  IS  EITHER  TRUE,  FALSE,  OR  MISSING  (  IF  SOME  OP 
THE  TESTED  DATA  IS  MISSING  ).  THIS  PART  BFGINS 

WITH  'IF'.  THE  'IF'  SECTION  CAN  POLLOW  A  'FOR*  SECTION, 

I'”  CAN  BE  THE  FIRST  SECTION  (  WHEN  'FOP*  IS  NOT  USED  ), 

OR  IT  CAN  BE  OMITTED. 

3.  A  CONSEQUENCE  SECTION  TS  INDICATED  BY  'SET',  'SETX',  'DELETE', 
•RETAIN',  ' QUITFILE' ,  'QUITOP',  AND  'QUITRUN'.  'FOR'  AND/OR 
'IF'  ARE  OPTIONAL,  BUT  THERF  MUST  ALWAYS  BE  A  CONSEQUENT. 


THUS,  THE  FOLLOWING  POUF  SFQUFNCES  ARE  POSSIBLE 


1.  FOR  IE 

2.  *OR 

3.  IP 
U. 


CONSEQUFNCE ( S) 
CONSEQUENCF(S) 
CONSEQUENCE (S) 
CONSEQUENCF ( S) 
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CONSIDER  A  FILE 

NA  MFD 

A,  8 

FOWS  BY  5 

COLUMNS, 

FOR  REFERENCE 

IN 

THF  EXAMPLFS 

HELOW. 

(MT 

SSING  DATA 

IS  PPINTED  AS  X  ) 

POSITION 

1 

2 

3 

4 

5 

LABEL 

AGE 

SEX 

TESTAA 

TESTBB 

TESTCC 

1 

LI 

14. 

1. 

82. 

87. 

X 

2 

12 

16. 

2. 

93. 

100. 

88. 

3 

LG 

17. 

X 

77. 

73. 

68. 

U 

T  4 

16. 

*. 

X 

88. 

77. 

5 

LS 

1*. 

1. 

90. 

93. 

91. 

6 

l* 

14. 

2. 

82. 

100. 

90. 

7 

L7 

X 

2. 

83. 

97. 

8C . 

8 

L8 

16. 

2. 

X 

X 

X 

********* 

*  FOR  * 

********* 

•  POP'  ,  IF  I?  IS  USED,  MUST  BEGIN  THE  PHRASE.  ‘FOP'  MUST  BE  FOLLOWED, 
IN  PARENTHESES,  BY  N'HE  VAPIABLES  TO  BE  USED  WHEREVER  .X.  APPEARS. 

THE  LIST  IS  JUST  LIKE  A  COLUMN  SELECTION  LIST,  IN  OTHER  WORDS, 

(AGE--)  MEANS  ALl  VARIABLES  FROM  THE  ONE  LABELLED  AGE  THROUGH  THE 
FIFTH  VARIABLE. 

THE  FOLLOWING  STATEMENT  TPANSFOPM S  THE  NON-MISSING  SCORES  IN  VARIABLES 
TESTA  A ,  TFSTBP,  AND  TESTCC  INTO  THEIR  SQUARE  ROOTS. 

IN  =  A  (  SET  TESTAA  TO  SQRT  (  TESTAA) ,  SET  TESTBB  TO 
SORT  (  TESTER  ) ,  SET  TESTCC  TO  SQRT  (  TFSTCC  )  ) 

THE  FOLLOWING  DOES  THF  SAME  THINS  USING  A  ‘FOR*  LOOP. 

IN  a  A  (  *0»  (  TESTAA  -  TESTCC  ),  S'**  .X.  TO  SQRT  (  .X.  )  ) 

NOTF...A  COMPLETE  P-STAT  STATEMENT  *7 GHT  BE... 

TNTMDS ,  I  N=  A  (EOF  (TESTA  A  -  TESTCC)  ,  SET  .X.  TO  SQRT(.X.)  ), 


COR 


AC  t 
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********* 

*  IP  * 

********* 

•IF*  IS  FOLLOWED  BY  A  LOGICAL  RELATIONSHIP . 

A  LOGICAL  RELATIONSHIP  BEGINS  WITH  ONE  OF  THE  FOLLOWING  SIX  THINGS.... 

1.  A  SUBSTITUTION ,  REFERENCING  THE  CURRENT  VARIABLE  IN  THE 

•FOR'  LIST.  THIS  HAS  THE  FORM  .X.  OR  .  XJ.,  WHERE  J  IS  AN 
INTEGER,  WITH  OP  WITHOUT  A  SIGN.  FOR  EXAMPLE, 

.X.  . X+3.  .  X-5.  . X5. 

2.  A  VARIABLE,  SUCH  AS  AGE. 

3.  A  CONSTANT,  SUCH  AS  3.1416,  OR  7  . 

4.  A  POSITION,  SUCH  AS  .07.  . 

LATER  IN  THIS  DESCRIPTION,  THE  TERN  SVCP  IS  USED  TO 
INDICATE  THAT  A  SUBSTITUTION  (S)  ,  A  VARIABLE  LABEL  (V), 

A  CONSTANT  (C)  ,  OR  A  POSITION  (P)  CAN  BE  USED.  SVP 
INDICATES,  FOR  EXAMPLE,  THAT  A  CONSTANT  (  NOTE  SVP  LACKS 
THE  C  )  IS  NOT  ALLOWED  THERE.  THESE  ABBREVIATIONS  OCCUR 
IN  SOME  OF  THE  P-STAT  DIAGNOSTIC  MESSAGES . 

5.  ANY  (LIST) 

6.  ALL  (LIST) 

•ANY*  OR  'ALL*  APE  GENERALLY  NOT  USED  WHEN  »*0R*  IS  USED. 

THE  LIST,  IN  *  ANY*  AND  'ALL',  IS  JUST  LIKE  THE  'FOR*  LIST. 

ROW  AND  COLUMN  SELECTION  LISTS  START  WITH  AN  'R'  OP  A  'C', 
THESE  DO  NOT. 

A  LOGICAL  OPERATOR  MUST  COME  NEXT.  THERE  ARE  10  CF  THES* . . . 


OPERATOR 

MEANING 

FOLLOWED  BY 

1. 

GT 

GREATFR  THAN 

SVCP 

2. 

GE 

GREATFF  THAN 

OR 

EQUAL  TO 

SVCP 

3. 

FO 

EQUAL  TO 

SVCP 

4. 

N* 

NOT  EQUAL  TO 

SVCP 

5. 

LE 

LESS  THAN  OR 

FQUAL  TO 

SVCP 

6. 

17 

LESS  THAN 

SVCP 

7. 

MISSING 

NOTHING 

8. 

GOOD 

IN  OTHER  WORDS, 

NOT  MISSING 

NOTHING 

°. 

OUTRANGE 

(  svcp,  svrp 

10. 

IN*  ANGE 

(  SVCP,  SVCP 

THE  FI*ST  6  MUST  BE  FOLLOWED  BY  A  SVCP  (SUBSTITUTION,  VAPIABLF, 
CONSTANT,  OR  POSITION).  MISSING  AND  GOCD  DO  NOT  NEED  ANYTHING  ELSE. 
OUTPANG*  AND  INPANGE  ARE  FOLLOWED  *»Y  (SVCP,  SVCP),  AS... 

(  IF  AGF  INPANG?  (  11,  ?n  ),  PFTATN  ) 
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************* 

*  OP,  AND  * 

************* 

'OR'  AND  'AND'  CAN  BE  USED  TO  LINK  SEVERAL  LOGICAL  RELATIONSHIPS. 

(TF  TFSTAA  GE  70  OR  TESTBB  GF  75  OF  TESTCC  GE  80  SET...) 

(IF  AGE  GF  14  AND  SEX  FQ  1  SFT. . . .) 

(TF  AGF  EQ  14  AND  SEX  EQ  1  OR  TFSTAA  FQ  77  OR  TESTBB  EQ  92,  DELETE) 

THIS  LAST  EXAMPLE  WILL  BE  TRUE  POR  RON  1  (  AGE  EQ  14  AND  SEX  EQ  1  ) , 
SON  3  (  TESTAA  EQ  77  )  AND  RON  7  (  TESTBB  EQ  92  )  . 

NOTE...  'OR*  AND  'AND*  CAN  BE  USFD  IN  THE  SAME  STATEMENT.  IF  BOTH  ARE 
USED,  THE  'ANDS*  APE  DONE  AS  IF  PARENTHESES  HERE  AS  POLLOHS... 

A  OP  (  C  AND  C  )  OR  D 

HOWEVER,  USE  OF  PARENTHESES  TC  GROUP  'OR'  AND  'AND*  SECTIONS  IS 
NOT  ALLOWED. 

WHEN  OR/AND/ANY/ALL  ARE  BEING  USFD,  THE  ONLY  SENSIBLE 
CONSEQUENCE  TESTING  SHOULD  BE  TRUE  VERSOS  MISSING/FALSE. 

CONSIDER . 

(  IF  AGE  EQ  14  AND  SEX  EQ  1,  T. SET  TESTAA  TO  1,  H.SFT  TESTAA  TO  2, 
F.SFT  ’’’EST \A  TO  7  ) 

ROW  3  WILL  BE  FALSE  FOR  THE  ABOVE  STATEMENT  BECAUSE  ITS  SCORE  ON 
AGE  IS  17  AND  NOT  14.  HOWEVER... 

(  IF  S*X  EQ  1  AND  AGE  FQ  14,  FTC.  ) 

WOULD  GIV*  MISSING  FOR  ROW  .3,  BFCAUSE  ITS  SCOR*  ON  SEX  IS  MISSING. 

THE  PROGRAM  IS  WR ITTEN  SO  THA T  ^HF  BALANCE  O’  A  SERIES  OF  '  ANDS' 

IS  SKIPPED  AS  SOON  AS  ANY  PART  IS  NOT  T  UE.  THUS,  IF  THE  FIRST  PART 
IS  PAT  ^ E  AND  THE  SECOND  PART  IS  HISSING,  SAYING  THAT  TH?  'AND' 

SERIFS  IS  NOT  TRUF  IS  VALID,  SAYING  THAT  IT  IS  FALSE  RATHER 
THAN  MISSING  IS  SOMEWHAT  A PBITP  A  R  Y . 
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***************** 

*  CONSEQUENCES  * 

***************** 

AT  LEAST  ONE  OF  THE  FOLLOWING  MUST  APPEAR . 

SET 

SETT 

QUITFILE 

QUITOP 

QUITRUN 

DELETE 

RETAIN 

THESE  CAN  BE  IMMEDIATELY  PRECEDED  BY  SOME  PAFT  OF  FMT.  FOP  EXAMPLE.. 

SET 

T.  SET  (  SET  AND  "'.SET  APE  EQUIVALENT  ) 

F.SEf’ 

M .  SET 

FM.SFT 

MF.SFT 

FMT. SET,  ETC. 

NO^E  -  FMT. SET  IS  A  POSSIBILITY.  CONSIDER... 

IN  =  W  (  SETT  GOOD.N  to  0,  S*TX  TOTAL. N  TO  0  ) 

(  FOP  (AA-BB  )  IF  .X.  GOOD,  SET  GOOD.N  TO  GOOD.N  ♦  1, 

FMT. SET  TOTAL. N  TO  TOTAL. N  ♦  1  ) 

(  SETX  PCT.GCOD  TO  GCOD.N  /  TOTAL. N  ) 

(  SET  PCT. GOOD  TO  PCT.GOOD  *  10"  ) 

**********************  ******** 

*  OUITFILE,  DELETF,  FTC.  * 

********************  ********** 

QUITFILE  WHEN  EXECUTED,  "’HE  PFOGPAM  IS  TOLD  THAT  the  FILE  IS  DONE. 

QUTTOP  WHEN  FXFCUTED,  THE  CURRENT  P-STAT  STEP  ENDS  AND 

THE  PUN  CONTINUES  WITH  THE  NEXT  P-STAT  STEP. 

QUITRUN  WHEN  EXECUTED,  THAT  FINISHES  the  PUN. 

DELETE  WHEN  EXECUTED,  THE  ROW  BEING  WORKED  ON  TS  DELETED,  AND 

AN-'Thwr  ROW  IS  READ  AND  THE  CHECKING  AND  SO  FORTH  STARTS 
ALL  OVER. 

RETAIN  IF  'RETAIN*  TS  THERE  AND  TS  NOT  EXECUTED,  THF  ROW  TS  DELETED. 

•RETATN*  IS  THE  SAME  AS  ' FM. DELFTE' . 


3 
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********** 

*  SET*  * 

********** 

SETX  IS  USED  (INSTEAD  OP  SET)  TO  INDICATE  ^HAT  A  NEW  VARIABLE 
IS  BEING  GENERATED.  IT  SHOULD  APPPAR  ONLY  ONCE  POR  EACH  NEW 
V  APIABL*. 

THREE  DIFFERENT  WAYS  OF  DEFINING  THE  LABEL  (  OR  LABELS  )  OF  THE 
NEW  VARIABLE (S)  CAN  FOLLOW  THE  'SETX*.  THESE  ARE... 

1.  A  DUHflY  REFERENCE,  **»,  WHICH  TELLS  P-STAT  TO  GENERATE 

A  LABFL  FOR  THE  VARIABLE.  IF  THE  NEW  VARIABLE  WILL  GO  IN 
AS  THE  TWELFTH  COLUMN ,  THE  GENERATED  LABEL  WILL  BE  *L12*. 
IN  EFFECT,  T HE  *  SAYS...  HAKE  A  LABEL  AND  PUT  THIS  NEW 
VARIABLE  IN  A  POSITION  ONE  TO  THE  RIGHT  OF  THE  CURRENTLY 
RIGHTMOST  COLUMN. 

(  FOR  (  3-5  ) ,  SETX  *  TO  LOGIO  (  .  X.  )  ) 

2.  THE  ACTUAL  LABFL  FOP  THF  NEW  VARIABLE. 

(  SETX  TOTSCORE  TO  SUM  (  TESTAA,  TESTBB,  TESTCC  )  ) 

3.  A  PAIR  OF  PARENTHESIS  WHICH  ENCLCSE  A  PREFIX  OR  SUFFIX  FOR 
LABEL  GENERATION.  THIS  CAN  ONLY  BE  USED  WHEN  'FOR*  Is 

IN  USE.  THE  NEW  LABFL  IS  CR  FATED  USING  THE  LABEL  OP  THE 
CURRENT  'POP*  VAFIAPTE,  hit)!  THE  PREFIX  OR  SUFFIX  ADDED  TO 
IT. 

(  ABC*  )  WILL  BE  A  PRFPT7. 

(  *ABC  )  WILL  BF  A  SUFFIX. 

HERE,  THE  *  SHOWS  WHERE  THE  OLD  LABFL  GOES  RFLATIVE  TO 
THE  PPEFTX  OR  SUFFIX. 

(  FOR  (  3-5  ) ,  SETX  (*.L  )  TO  LOGIO  (  .X.  )  ) 

SINCE  VARIABLE  3  IS  TESTAA,  THE  NFW  LABEL  IN  POSITION  SIX 
WILL  PF  'TESTAA. L'.  TH*  SEVENTH  VARIABLE  WILL  BE 
•TESTBB. I',  AND  SO  ON. 

NOTE  -  THE  NrWL Y  CREATED  LAPEL  MUST  START  WITH  A  LETTER, 
ETC.,  AND  SHOULD  NOT  DUPLICATE  ANY  COLUMN  LABEL  CURRENTLY 
IN  THP  FILE, 
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********** 

*  SET  * 

********** 

POOP  TYPES  OP  ARGUMENTS  CAN  COMP  AFTER  ‘SET*  . 

1  SUBSTITUTION  .X. 

2  VARIABLE  AGP 

3  POSITION  .CIO. 

4  .  W.  THIS  INDICATES  WEIGHTING 

NOTE  THAT  A  CONSTANT  IS  NOT  ALLOWED.  YOO  CANNOT  SET  7  TO  ANYTHIN!. 

THE  .W.  PERMITS  WEIGHTING  OP  SOME  OF  THE  ROWS  IN  A  FILE. 

IN  *  A  (IP  AGE  GF  17  SET  .W.  TO  2  ) 

THIS  WOOLD  CAOSE  ROW  3  IN  THE  EXAMPLE  FILE  A  TO  BP  SENT  TWICE  TO 
THE  CURRENT  P-STAT  OPERATION,  PROVIDING,  OP  COURSE,  THE  POW  GETS 
SENT  AT  ALL.  ONE  MIGHT  WEIGHT  IT  FCR  ONE  REASON  AND  THEN  DELETE 
IT  POR  ANOTHER  REASON.  ONLY  ONE  ACTIVF  PILE  AT  A  TIME  CAN  BP  USING 
SPT  STATEMENTS  WITH  .W.  IN  THEM.  ’’’HEPF  nAY  PE  .W.  USAGFS  IN  EACH 
OP  SEVERAL  'IP*  PHRASES  MODIFYING  A  PILE,  AND  PERHAPS  SEVPPAL  .W. 
USAGES  TN  A  SINGLE  'IF*  PHRASE.  IN  THESE  EVENTS,  THE  LARGEST  SETTING 
OP  .W.  IS  nSED  AS  THE  WEIGHTING  FACTOR  FOR  TH*  POW  BEING  WORNED  ON. 

THE  WORD  'TO*  MUST  FOLLOW  THE  ARGUMENT  {  WHICH  FOLLOWED  *SFT'  OR 
* SETX*  )  .  THE  FOLLOWING  CAN  CCMF  APT PR  THE  «TO»  . 

**************************************** 

*  * 

*  7  SIMPLE  SFTTINGS  * 

*  * 

********************  **********  ********** 

1.  .!., 

2.  AGE, 

3.  7, 

4.  .CIO., 

5.  .IN.,  THF  POSITION  OF  THIS  FOW  IN  ^HE  INPUT  *TLF  F**ORF  ANY 
DELETING  OR  WEIGHTING. 

f.  .nS*D.,  THE  N'JMBE0  OP  ROWS  WHICH  HAV*  ALREADY  SUPVTVEU  ALL 
THIS,  PLUS  1.  SINCF  WEIGHTING  REPEATS  A  POW  EXACTLY, 
PEPEATING  A  *>OW  DOFS  NOT  TNCPPASP  -r-H?  .USED.  COUNTPP.  I? 
WEIGHTING  IS  NO*  INVOLVED,  .USFD.  WILL  PROVTD*  SEQUENCE 
NUMBERING  OP  NONDFLETFO  RCWS,  THEREFOR*,  REPEATS  IN  THE 
SPRIALm^TON  INDICATE  WEIGHTING. 
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.  «.,  THIS  GENERATES  A  MISSING  SCORE.  . B.  IS  OSED  BECAUSE  M, 
BY  ITSELF,  MIGHT  SOMEDAY  BF  A  LABEL  IH  SOMEONE'S  FILE. 

**************************************** 

*  * 

*  ABS,  LOG,  SQRT,  ETC.  * 

*  * 
**************************************** 


ABS 

(SVCP) 

ABSOLUTE  VALUE 

LOG 

(SVCP) 

NATURAL  LOG  (BASE  E) 

SQPT 

(SVCP) 

SQUARE  FOOT 

LOG10 

(SVCP) 

COMMON  LOG  (BASE  10) 

EXP 

(SVCP) 

E  ♦*  SVCP 

SIN 

(SVCP) 

SINE 

COS 

(SVCP) 

COSTNE 

ATAN 

(SVCP) 

ARCTA  NGFNT 

************  **************************** 


*  * 

*  NCOT  AND  RECODE  * 

*  * 

**************  ************************** 

NCO9’  (  SVP,  C,...,C).  NCOT  IS  A  GENEPAL  FOPM  OF 


DICOTIMIE ATION.  FOR  EXAMPLE,  NCOT { AGE,  15).  THIS  WOULD 
GIVE  1  IF  A  SCORE  ON  AGE  WEPE  15  OR  LESS,  AND  2  IF  HOPE  THAN 
15.  NCOT  (AGE, 14,  16).  IF  14  OR  LESS,  SET  TO  1.  IF  MORE  THAN 
14  AND  NOT  MOR’?  THAN  16,  SFT  TO  2.  IF  OVER  16,  SET  TO  3.  ANY 
NUMBER  OF  CONSTANTS  IS  ALICVED,  BUT  TH*Y  BUST  ASCEND. 

THr  NCOT  RESULTS  USUALLY  S'*  ART  AT  1  AND  INCREASE  BY  1.  IF 
SON?  OTHEF  STARTING  VALUE  IS  PP  EFEPPED,  IT  CAN  BE  INSERTED 
AS  T HE  FIRST  ""RING  IN  9'HF  PAPFNTHESFS. ,  . 

NCOT  (", AG*, 14)  GENEPATFS  f  AND  1,  INSTEAD  OF  1  AND  2  (AND 
COURSE  MISSING  17  AGE  IS  MISSING). 

A  TOPICAL  USE  MIGHT  BE... 

TV  =  A (  SE^X  CODE. AGE  TO  NCCT(AG*,  14)  ) 

NOT*  ...  NCO'9  (  AGE,  15  )  COULD  BE  THOUGHT  OF  AS  ... 

NCOT  (  AG* ,  UP  "HFOUGH  16,  OVER  15  )  . 
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2.  RECODE  (  SVP,  11/13  *  1,  14  =  2,  X  -  3,  H  =  4  ) 

THE  SVP  IS  A  SUBSTITUTION  OR  VARIABLE  OR  POSITION. 

THREE  THINGS  CAN  FOLLOW... 

1  1/5=1  SCORES  OF  1  THROUGH  5  ARE  RECODED  TO  1. 

6=2  SIXES  BECOME  TWOS 

7=1  SEVENS  BECOME  ONES 

8/10,  12,  14=3  EIGHTS  THROUGH  TENS,  ALSO  TWELVES 

AND  FOURTEENS  BECOME  THREES. 

2  H  =  3  THIS  CONVERTS  A  MISSING  SCORE  INTO  A  THREE. 

M  =  M  THIS  WORKS,  BUT  IS  UNNECESSARY.  IF  NO  M=  IS 

FOUND,  A  MISSING  SCOPE  SIMPLY  REMAINS  MISSING. 
ONLY  ONE  M=  SHOULD  BE  USED  (  IF  ANY  )  . 

3  X  =  4  ALL  NON-MISSING  SCORES  NOT  OTHERWISE 

DEFINED  APE  CONSIDERED  TO  EE  EXTRA. 

X=4  SAYS  CHANGE  THEM  ALL  INTO  4S. 

ONLY  ONE  X=  CAN  BE  USED  IN  A  RECODE. 

IF  X=  IS  NOT  USED,  NON- REFERENCED  SCORES  STAY 
AS  IS,  UNLESS  THE  SCORE  IS  MISSING  AND 
THEREFORE  UNDER  THE  CONTROL  OF  H=  . 

X  =  M  THIS  WILL  PROBABLY  BE  USED  FREQUENTLY.  IT 

RECODES  AN  EXTRA  SCORE  TO  MISSING. 

THE  FOLLOWING  TWO  STATEMENTS  DO  THE  SAME  THING  (  ASSUMING 
POSITIVE  SCORES  ON  AGE  )  ... 

NCOT  (  AGE,  14  ) 

RECODE  (  AGE,  0  /  14  =  1,  X  =  2  ) 

******* ***********************  ********** 

*  * 

*  10  OPERATIONS  ON  LISTS  CF  VARIABLES  * 

*  * 
******************************  ********** 

1.  SUM  (LIST)  THIS  ADDS  UP  THE  VALUES,  IN  THIS  ROW,  ON  THE 

VARIABLES  IN  THE  LIST. 

SUM (1 -100)  ADDS  THE  FIRST  100  VARIABLES. 

IF  ANY  APE  MISSING,  THE  SnM  IS  MISSING. 

THESE  LISTS  HAVE  THE  SAME  RULES  AS  'EOP‘  LISTS. 

2.  SUM. A  (LIST)  THIS  ADDS  "HE  NON-MISSING  SCORES. 

THF  LETTER  A  IMPLIES  USAGE  OF  AVAILABLE  DATA. 


3.  MEAN  (LIST)  THE  MEAN  SCORE 
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9. 

MEAN. A 

(LIST) 

5. 

MAX 

(LIST) 

THE 

LARGEST 

VALUE 

6. 

MAX.  A 

(LIST) 

7. 

MIN 

(LIST) 

THE 

SMALLEST 

VALUE 

8. 

MIN.  A 

(LIST) 

9. 

SDEV 

(LIST) 

THE 

STANDARD 

DEVIATION 

10. 

SPEV . A 

(LIST) 

**************************************** 
*  * 

*  SIMPLE  ARITHMETIC  IS  POSSIBLE  * 

*  * 
**************************  ************** 

1.  SVCP  ♦  SVCP 

2.  SVCP  -  SVCP 

3.  SVCP  *  SVCP 
U.  SVCP  /  SVCP 
S.  SVCP  **SVCP 

;  EXAMPLES 


CONSIPER . 

IN  =  A  (IF  AGE  OF  IS,  DELETE  ), 

A  P-STAT  SYSTEM  ROUTINE,  AS  E ACH  ROW  IS  READ,  LOOKS  PIRST 
AT  THE  SCORE  IN  THA'”  ROW  ON  THE  VARIABLE  LABELED  AGE.  IF  THAT 
SCORE  IS  GREATER  THAN  OP  FQUAL  TO  (GE)  15,  THE  RELATIONSHIP  IS 
TPUE,  AND  IS  TRUE  FOP  ROWS  2,  3,  t»,  5,  AND  8  OF  THE  ABOVE  EXAMPLE 
FILE.  ’"HFPEFOFE,  THOSE  ROWS  WOULD  FE  DELETED,  THR  COMPLETE 
OPERATION  HIGH*  BE  . . . 

SCAN,  IN  =  A  (IF  AGE  GE  1c,  DELETE),  DFS  *  Al^.D, 

OUT  *  A15  t 

A S S U * r  T Hr  SCORES  ON  VARIABLE  TEFTCC  APE  ALL  TFN  r>’00  HIGH.  THEN 
TV  *  A  (SE'T’  TEST CC  ^0  'PESTCC  -  10  ) 

WOULD  SUBTRACT  1 1  FROM  PACH  NOV-MTSSTNG  SCORE  IN  VARIABLE  'TESTCC* . 
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IN  *  A  (SET*  MAXTEST  TO  BAX  (  TESTA A  -  TESTCC  )) 

SETX  (SET  AN  FXTBA  VARIABLE)  GENERATES  A  NEW  VARIABLE,  HAXTEST, 

WHICH  IS,  IN  THIS  EXAMPLE,  THE  HAXIBOH  OF  THE  SCORES  ON  TESTAA 
THROUGH  TESTCC.  EACH  ROW  OF  THE  FILE,  AS  IT  IS  READ  PROM 
WHEREVER  IT  IS  (DISK,  TAPE,  ETC),  WOULD  HAVE  THE  ABOVE  EVALUATION 
DONE  UPON  ITS  SCORES  ON  TESTAA,  TESTBB,  AND  TESTCC. 

NOTE...  THE  SVHBOL  INDICATES  HIE  US  IN  ARITHMETIC  SITUATIONS, 
AND  INDICATES  A  RANGE  IN  LISTS. 

PUTTING  T.  BEFORE  A  CONSEQUENCE  MEANS. . .EXECUTE  THE  CONSEQUENCE 
ONLY  IF  THE  RESULT  OF  THE  *  IF*  SECTION  IS  TRUE.  F.  STANDS  FOR 
FALSE,  M.  FOR  MISSING,  TM.  FOR  EITHER  TRUE  OR  HISSING,  ETC. 

AS  SHOWN  ABOVE,  A  CONSEQUENCE  WITH  NO  SUCH  LETTERS  PRECEDING  IT  IS 
EXECUTED  I?  TRUE.  IN  OTHER  WORDS,  'T. DELETE'  AND  'DELETE*  ARE 
EQUIVALENT. 

IN  =  A  (IF  AGE  GE  15,  T.SETX  N*WAGE  TO  1,  M. SET  NFWAGE  TO  2, 

F. SET  NEWAGE  TO  3  ) 

HERE,  A  NEW  VARIABLE  NAMED  SEWAGE  IS  BEING  GENERATED.  ROWS  2, 

3,  4,  5,  AND  8  WILL  HAVE  A  SCORE  OF  1  ON  IT  BECAUSE,  FOR  THOSE 
ROWS,  THE  (IF  AGE  GE  15)  RELATIONSHIP  IS  TRUE.  ROW  7  WILL  BE  2, 

AND  ROWS  1  AND  6  WILL  BE  3  ON  THE  NEW  VARIABLE. 

NOTE-  WHEN  A  NEW  VARIABLE  IS  BEING  DEFINED,  'SETX'  HOST  BE  USED. 

HOWEVER,  ONE  SUCH  'SETX'  DEFINES  THE  VARIABLE.  SUBSEQUENT 
REFERENCES  SHOULD  USE  'SET'  . 

TP  A  STATEMENT  HAS  'SETX'  IN  IT,  THAT  VARIABLE  IS  SET  TO 
MISSING  BEFORE  THE  STATEMENT  BEGINS  EXECUTION.  THUS,  IF  A 
LOGICAL  RELATIONSHIP  CAUSES  THF  EXECUTION  OF  THE  'SETX'  PART 
TO  BE  BYPASSED,  THE  NEW  VARIABLE  IS  THERE  FOR  THAT  ROW,  AND 
ITS  VALUE  IS  HISSING. 

IN  =  A  (  SETX  *  TO  ,  C4.  ♦  ,C5.  ) 

THIS  GENERATES  A  NEW  VARIABLE,  WHICH  WILL  BE  THE  SIXTH  COLUMN  OP 
THE  FILE  BECAUSE  FILE  *A',  IN  THIS  EXAMPLE,  ALREADY  HAS  PIVE  COLUMNS. 
THE  NEW  VARIABLE,  LABELLED  'L6»,  WILL  EE  THF  SUM  OF  COLUMNS  4  AND  5. 
HOWEVER,  IF  THE  VALUE  IN  COLUMN  4  CP  COLUMN  5  IS  MISSING,  THE  NEW 
VARIABLE,  IN  COLUMN  6,  WILL  ALSO  BE  SET  TO  MISSING. 

IN  *  A  (  FOR  (3-5)  SIT  .X.  TO  SQRT(.X.)  ) 

HERE,  FOR  (3-5)  DEFINES  A  LOOP,  INVOLVING  THE  SCORES  OF  VARIABLES 
(I.E.,  COLUMNS)  3,  4,  AND  5.  THE  REST  OP  THE  STATFMENT  IS  EXFCUTED 
3  TIMES,  ONC*  WITH  THE  SCORE  ON  VARIABLE  3  INSFRTFD  WHFREVER  .X. 

IS  FOUND,  THEN  WITH  THE  SCORF  ON  VARIABLE  4,  AND  FINALLY  WITH  THE 
SCOPE  ON  VARIABLE  5  USFP.  IN  THIS  FXAHPLF  THF  RESULTING  VARIABLES 
3-5  WOUT  D  BE  THE  SQUARE  ROOTS  OF  THF  ORIGINAL  SCOFFS  ON  3-5. 
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IN  =  A  (FOP  (  1-5  ),  SETX  *  TO  SOFT  (  .X.  )  ) 


HERE,  Np W  VARIABLES  6-8  ARE  CREATED.  VARIABLE  6  IS  THE  SQUARE 
ROOT  OF  VARIABLE  3,  ETC.  FILE  'A'  HAS  5  COLUMNS,  THEREFORE  THE  'SETX*, 
WHEN  THE  ‘FOR’  INVOLVES  THREE  VARIABLES ,  WILL  GENERATE  VARIABLES  6,  7 
AND  8.  THEY  WILL  HAVE  COLUMN  LABELS  *L6',  * L7 * ,  AND  'L8'. 

IN  *  A  (  FOR  (3-5),  SETX  (  *.R  )  TO  SQRT  (  .X.)  ) 


THE  ABOVE  SUPPLIES  BETTER  LABELS  FOP  THE  3  NEW  VARIABLES.  THE 
'(*.?)•  INDICATES  THAT  • .  R'  SHOULD  EE  ADDED  TO  THE  ASSOCIATED  .X. 
VARIABLE'S  LABEL  AS  A  SUPE1X.  THUS  TESTAA.R,  TESTBB.R,  AND  TESTCC.R 
WILL  BE  PRODUCED.  SOME  EXAMPLES  WILL  DESCRIBE  THIS  FEATURE. 

ASSUME  THAT  'AGE'  IS  THE  LABEL  CE  THE  .X.  VARIABLE. 


(♦.SORT) 

(SORT.*) 

(  *3  ) 
(*....  X) 
(3*  ) 

(ABCDEF*) 


GENERATES 

GENERATES 

GENERATES 

GENERATES 

FAILS 

GENERATES 


AGE. SQRT 
SQRT. AGE 
AGE3 


AGE.  ..  .X 

3AGE  IS  NOT  A  VALID  LABEL 

ABCD5EGE  (NOTE  THE  LOSS  OP  'A'  IN  'AGE') 


NOTE-  THE  WORD  COLUMN  REFERS  TO  A  POSITION  IN  A  FILE.  IT  HAS 
NOTHING  TO  DO  WITH  THE  IDEA  OF  A  COLUMN  IN  A  PUNCHED  CARD. 


I  IN  =  A(  FOR (  3-4) ,  SETX  NEHVAR  TO  SQRT  (  . X.  )  ) 

l  THE  ABOVE  IS  WPONG.  ONE  CANNOT  CPEATF  TWC  NEW  VARIABLES,  EACH  LABELLED 
I  '  NEWVAR '  .  FOR  THAT  MATT  IIP ,  A  NEWLY  DEFINED  LABFL  MUST  BE  DIPFERENT 
1  FROM  ANY  LABEL,  ORIGINAL  OR  ALSO  NFW,  THAT  IS  CURRENTLY  IN  THE  PILE. 

I  IN  =  A  (  FOR  (4-S)  SET  .  X- 1 .  TO  .X.  -  1  ) 


FOR  ROW  3,  FOP  EXAMPLE,  TESTAA  BFCCMES  99  AND  TESTBB  BECOMES  87. 
.X-1.  REFERS  TO  tHp  SCORE  ON  THE  V  APIA  BLr  BEFORE  THE  CURRENT  'FOR' 
VARIABLE.  .X.  -  1  REFERS  to  TH?  SCORE  MINUS  1  ON  THE  CURRENT  'FOR* 
VARIAB!P. 

IN  =  A  (  pOR  (1-5)  SETX  *  TO  LOG  (  .X.  )  ) 


THIS  GENERATES  5  NPV  VARIABLES  IN  POSITIONS  6  TO  10  (  LABELED 
Lf,  T.7,  FT . )  ,  VARIABLE  f  Will.  PE  THE  LOG  OF  VARIABLE  1,  7  OP  2, 


ETC. 


IN  =  A.  (  FOP  (4-c)  IF  .X.  LT  .X-1.,  FM.DELFTF  ) 


THIS  ’’FT  A  ^  NS  ONLY  ~F03P  ROWS  P0P  WHICH  THr  SCOFFS  ON  VAPIABLFS 


3,  4,  AND  5  ARE  DECREASING  (  I.F., 
THF  GVLY  R°W  P  T"T'A  T  N  PD  .  NOTE  -  USE 
WOULD  GIVE  THP  SAMP  " "SULT . 

IN  -  A  (  RO R  (  1*  )  SF’*  ,X.  to 

TH1  S  S  ALL  Hp  VALUES  IN  FTLP  A 


4  LT  3  AND  5  I.T  4  )  .  ROW  3  WOULD  BE 
OF  • PFTA IN •  INSTEAD  OF  'EM. DELETE' 

SQP""  (.X.)  ) 

TO  THFIP  CQUAR  E  ROOTS. 
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TN  «  A  {IP  ANY  (3-5)  MISSING,  DELFTE) 

HERE,  IP  A  ROWS  SCORE  ON  ANY  OP  VARIABLES  3,  4,  OP  5  IS  MISSING, 

THE  ROW  IS  DELETED.  ANOTHER  WAY  OP  DOING  THIS  IS... 

IN  =  A  (  FOP  (3-5)  IP  .X.  MISSING,  DELETE) 

ROWS  2,  3,  5-7  WOULD  SURVIVE.  THE  PEST  HAVE  AT  LEAST  ONE  MISSING 
SCORE  ON  VARIABLE  3,  4,  OP  5. 

NOTE-  FILE  *  A •  ITSELF  IS  NOT  AFFECTED  BY  DELETING  ROWS.  THF 
CURRENT  OPERATION  SIMPLY  GETS  A  PEADING  OF  *A'  WITHOUT 
CERTAIN  OF  ITS  ROWS. 

TN  =  A (SETX  COUNT  TO  C.)  (  FOP  (TESTAA  -  TESTCC)  IF  .X.  GOOD 

SET  COUNT  TO  COUNT  ♦  1) 

THIS  GENERATES  A  NEW  VARIABLE,  COUNT,  WHICH  WILL  HAVE  THF  NUMBER 
OF  GOOD  (I.  E.,  NON-MISSING)  SCORES  CN  VARIABLES  3-5.  THE  VALUES 
POR  COUNT  COULD  THEREFORE  RANGE  FRCM  ZFRO  TO  THREE. 

IN  *  A  (  SETX  UNIT  TO  1  ) 

THIS  GFNE^ATES  A  VFCTOR  OF  ONFS  AS  THE  SIXTH  COLUMN  OF  THE  FILF. 

INCIDENTALLY,  WORDS  AND  NUMBERS  (  OR  WORDS  AND  WORDS  )  SHOULD  NOT  BE 
RUN  TOGETHER.  IN  PARTICULAR,  COLUMN  80  ON  ONE  CARD  AND  COLUMN  ONE  GN 
THE  NEXT  CARD  ARE  TREATED  AS  IF  THEY  RAN  TOGETHER. 

IN  =  A  (  SETXUNIT  TOl  ) 

THIS  CAUSES  ALL  KINDS  OF  PROBLEMS.  ALL  OF  TRE  CHARACTERS  IN  'SETXUNIT* 
APE  LEGAL  IN  A  NAME.  THEPEFORE,  ALL  EIGHT  CHARACTERS  Will  BE  TREATED 
AS  A  SINGLE  NAME.  THE  USER  SHOULD  USE  BLANKS  FREELY,  EXCEPT  WITHIN  A 
NAME  OR  A  NUMBER.  'SE  TX •  IS  A  LOSER.  CONSTANTS  CAN  BE,  FOR  EXAMPLE, 

7  OR  7.  OR  7.0,  BUT  '  1.357*  SHOUIC  NOT  BE  M.3  57». 

COMMAS  BETWEEN  SECTIONS,  THAT  IS,  AFTER  THE  'FOP'  PART,  OF  AFTFP  THF 
•IF'  PART,  OR  AFTER  FACH  CONSFQUFNCF,  APE  OPTIONAL. 
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.  COLUMN  /  IE  T N'f’EP ACTIC N 


THE  HS EE  MUST  BE  CAREFUL  HERE. 

AS  NOTED  ABOVF,  THE  OUTPUT  OF  ONE  PHRASE  IS  THE  INPUT  TO  THE  NEXT. 

IN  =  A(C  1-3)  (IF  TESTCC  LF  79,  TN. DELETE)  ...  WOULD  BE  AN 
ERROR,  BECAUSE  'TESTCC'  IS  VARIABLE  5  AND  THE  (C  1-3)  DISCARDED  ALL 
COLUMNS  EXCEPT  COLUMNS  1-3.  THEREFORE,  WHEN  THE  'IF'  STATEMENT 
WAS  EXECUTED,  THERE  WAS  NO  LONGER  ANY  VARIABLE  WITH  THE  LABEL 
'TESTCC' . 

IN  =  A  (  IF  TESTCC  LE  79,  TM.  DELETE  )  (C  1-3)  ...  WORKS,  BECAUSE 
THE  TRUNCATION  TO  COLUMNS  1-3  OCCUPRFD  AFTER  THE  SCORE  ON  TESTCC 
WAS  EXAMINED. 


.  ROW  /  IF  INTERACTION 


THE  P-STAT  SYSTEM  HANDLES  THIS  PPCBLEM  INTERNALLY. 

IN  =  A  (IF  SEX  EQ  1  RETAIN  )  (  R  12*  ) 

IE  the  'IF'  PHRASE  WERE  EXECUTED  FIRST,  THP  FIRST  ROW  WOULD 
SURVIVE  THE  'IF*  AND  BF  REJECTEE  BY  THE  'R'  PHRASE.  THEN  ROW  2, 
LABELLED  'L2',  WOULD  PE  REJECTED  BY  THE  'IF'  PHRASE  AND  NEVER  GET 
TO  THE  'R'  PHRASE.  THUS  "HE  *P'  PHPASP  WOULD  KEEP  REJECTING  ROWS 
0  AND  5  BECAUSE  IT  HAS  NOT  YET  SEEN  ROW  »L2*. 

THAT  IS  WHY  THE  SYSTEM  AUTOMATICALLY  DOES  THE  ROW  PHRASE  FTRST. 


(  P-STAT  VERSION  52.5) 


PAGE  92 


20.  MACROS  OF  P-STAT  OPERATIONS 

A  MACRO  IS  A  SERIES  OF  P-STAT  STATEMENTS  THAT,  TAKEN  TOGETHER, 
MAKE  OP  A  SUBROUTINE  OF  P-STAT  STATEMENTS.  IT  IC  GIVEN  A  NAMF 
AND,  LATER  IN  THE  RUN,  NHEN  THE  NAME  IS  USED  AS  A  P-STAT  OPERATION, 
THE  ENTIRE  SERIES  IS  EXECUTED. 

FOR  EXAMPLE,  FILE  A  HAS  SOME  NUMBER  OF  ROMS  AND  31  COLUMNS. 

THE  FIRST  30  COLUMNS  ARE  SCORES  ON  A  30  ITEM  TEST,  THF  LAST  VARIABLF 
IS  LABELLED  CLASS.  FRESHMEN  HAVE  SCORFS  OP  1  ON  CLASS,  SOPHOMORES 
ARE  2,  JUNIORS  ARE  3,  AND  SENIORS  APE  «.  ONI  MIGHT  NISH  TO  DO  A 
CORRELATION,  FACTOR  ANALYSIS,  ROTATION,  PRINT  SEQUENCE  ON  THE  FIRST 
30  VARIABLES  A  NUMBER  OF  TIMES,  CNCE  FOR  ALL  ROWS  OF  A,  AND  ONCE 
FOR  FACH  CLASS.  THIS  CAN  BF  DONE  BY  DEPINING  THE  SEQUENCE  (  THE 
MACRO  ITSELP  )  AND  THEN  CALLING  IT  FIVE  TIMES. 

(IT  MAY  BE  HELPFUL  TO  READ  THE  DESCRIPTIONS  OP  TH*  OPERATIONS 
USED  IN  THESE  EXAMPLE  MACROS.  THE  TABLE  OE  CONTENTS  AT  THE  END 
OF  THIS  MANUAL  HAS  THEIR  PAGE  NUMBERS.) 

******************************************* 

*  * 

*  SOME  EXAMPLES  * 

*  * 

**********  ********************************* 

THESE  SIX  LINES  DEFINE  THE  MACPC... 

MACPO,  EAC  =  DATA/VEAC  $ 

I NT CDS ,  IN=DAT A,  COR  -  X  t 
ITEACT,  IN  «  X,  SF  =  C  $ 

ROTATE,  IN  *  C,  VF  =  VFAC  t 
PRINT  =  2  /  X  /  VFAC  t 
FNDMACPO  $ 

THESE  ARE  FIVE  USES  OF  IT  ... 


FAC 

= 

A  (C 

1- 

■30)  / 

VFALL 

$ 

FAC 

= 

A  ( 

IT 

CLASS 

EO 

1. 

EFT AIN 

) 

( 

C 

1-30 

) 

/ 

VF  1 

$ 

FAC 

as 

A( 

T 

CLASS 

FO 

2, 

RETAIN 

) 

( 

c 

1-30 

) 

/ 

VF2 

$ 

F  AC 

= 

A  ( 

IF 

CLASS 

FQ 

3, 

FFTAIN 

) 

( 

A- 

1-30 

) 

/ 

VF  3 

$ 

FAC 

= 

A  ( 

IF 

CLASS 

FQ 

FFTAIN 

) 

( 

C 

1-30 

) 

/ 

VP4 

$ 

IN  THIS  MACRO  DEFTNITTON,  THFR*  HER*  TWO  DUMMY  ARGUMENTS,  DATA 
AND  VFAC. 

EACH  CALL  TO  THE  MACRO  ALSO  HAD  TNG  ARGUMENTS.  WHEN  A  MAC^O  IS 
CALLED  (THAT  IS,  USED),  THF  ORIGINAL  DERTNITION  IS  PETRIFVFD.  THEN 
THE  CURRENT  ARGUMENTS  -  THOSE  USED  IN  THF  CALL  -  ARF  SUBSTITUTED  FOR 
THF  DUMMY  ARGUMENTS  THAT  HERE  USED  IN  THF  DEFINITION.  IN  THF  FIRST 
USAGE  ABOVE,  • A  (C  1-3^)  •  IS  PLUGGFD  WHEREVER  THF  NAMF  'DATA'  WAS 
FOUND  IN  THF  ORIGINAL  MACRO  (  T.F.,  IN  THE  'TNTCDS'  STATEMENT  ). 

•VFALL'  IS  PLUGGFD  WHERFVFP  THF  NAMF  'VFAC*  WAS  FOUND  ...  IN  THF  ROTATE 
AND  PRINT  STATEMENTS. 


S»( 


■Mhw i 
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ANOTHER  EXAMPLE--  IF  ONE  WISHED  TO  MERGE  3  FILES  SIDEWAYS  (IGNORING  THE 
FACT  THAT  *  MERGE* ,  USING  •MIDDLE*1,  WOULD  DO  IT  QUICKER)  — 

MACRO,  MERGE3  =  A/B/C/DS 

MERGT ,  LwFT  =  A,  FIGHT  *  B,  OUT  =  X$ 

MERGE,  LEFT  =  X,  PIGHT  *  C,  OUT  =  D t 
ENDMACRO  $ 

THE  NAMES  USED  IN  THIS  MACRO  DEFINITION  ARE  A,  B,  C,  D,  AND  X. 

ALL  EXCEPT  X  APE  DUMMY  ARGUMENTS.  X  IS  USED  TO  IDENTIFY  A  RESULT 
OF  A  STEP  WHICH  IS  NFEDED  AS  INPUT  FOR  A  LATER  STEP,  ALL  WITHIN 
THE  MACRO.  IT  IS  A  LOCAL  NAME.  WHEN  THE  MACRO  IS  USED,  ACTUAL 
FILE  NAMES  WILL  REPLACE  A,  B,  C,  AND  D.  THE  LOCAL  NAMES  ARE  CHANGED 
ALSO,  TO  SOMETHING  LIKE  QQQQ12  .  EACH  TIME  A  MACRO  IS  USED,  A  NEJ, 
HOPFFULLY  UNIOUE  NAM F  IS  INVENTED  FOR  FACH  DIFFER FNT  LOCAL  NAME  IN 
THE  MACRO,  STARTING  WITH  QQQQ1.  THE  FIRST  EXAMPLE  MACRO, 

PAC,  HAS  Two  LOCAL  NAMES,  X  AND  C.  IN  THE  FIFTH  USAGE,  X  WOULD  HAVE 
APPEARED  AS  QQQQ9  .  THIS  PERMITS  A  USER,  WHEN  DEFINING  A  MACRO, 

TO  USE  ANY  NAMES  (NOT  STAPTING  WITH  QQQQ)  THAT  HE  WISHES, 

WITHOUT  CONFLICTING  WITH  NAMES  ACTUALLY  IN  ORDINARY  USE. 

************************************ ******* 

♦  * 

*  GENERAL  PULES  AND  RESTRICTIONS  * 

*  * 

* ** * * * * * * * * * *** * ** ** *** ** *  * #***#*♦ * * * * * * ** * 

SOMF  FACTS  ABOUT  MACROS  ....  VERSION  52 

ARGUMENTS,  WHEN  CALLING  A  MACRO,  CAN  HAVE  QUALIFICATION. 

DATA  CAPDS  CAN  BE  DEFINED  WITHIN  A  MACRO  AND  USED  EACH  TT ME  THE 
MACRO  IS  USED. 

20  DIFFERENT  MACROS  CAN  BE  DEFINED  IN  A  PUN. 

TH*  MACPO  DEEINITToNS  CAN  TOTAL  UP  TO  2N00  CHARACTERS  (30 
SOLIDLY  PUNCHED  CARDS).  OBVIOUSLY,  THIS  IS  ALSO  ’’’HE  LIMIT  FOR  ANY 
SINGL*  MACRO. 

TE  A  MACRO  NAME  IS  THE  SAME  AS  THE  NAME  Op  AN  EXISTING  P-STAT 
OPERATION,  SUBSEQUENT  USE  OF  *T'HF  NAMF  WILL  REPPR  TO  The  MACRO. 

HOWFVPT>,  A  FEW  P-ST  AT  NAMES  CANNOT  RF  USED  FOR  MACPO  NAMES  (PURGE, 

MAC. THRU,  no,  ENDDO ,  MACRO,  ENDMACFC,  FND,  MACDATA,  MAC. .D  AND  DUMP). 

A  MACRO  CAN  CALL  AN0THE0  MACPO  (  UP  TC  10  DEEP  -  (  UNLIKELY  )). 

MACROS  CAN  BE  INSIDE  A  DO  LOOP  (SEF  SECTION  ON  DO  LOOPS). 

A  DO  LOOP  CAN  E*  INSIDE  A  MACRO. 

A  MACRO  CAN  HAVE  NO  ARGUMENTS,  OP  FROM  1  TO  20. 

U°  To  10  DI FFE? ENT  LOCAL  NAMFS  CAN  BE  USED  IN  ANY  MACPO. 

WHEN  EXPANDED,  A  MACPO  CANNOT  FXCEFP  10 CC  CHARACTERS. 
things  to  pf  cha ng^d-usua I ly  just  thf  number  of  TIMFS  ANY  FILE 
NAMr  i r  mentioned  in  all  deetnfd  macros-  oj^nnot  exceed  20c. 

>  NY  TOC»L  N  AMPS  G  rNp*“  A  TE''  IN  A  MACRO  USAGE  ARr  AUTOMATICALLY 
PUPGFD  W M F V  THAT  *»Cro  IS  FT  NI SHr  T.  (  THESE  A  or  THE  QQQQ  NAMES.  ) 
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******************************************* 

*  * 

*  TYPES  OF  ARGUMENTS  * 

*  * 
**************************  ***************** 

ANY  NAME  (IDENTIFIER,  ARGUMENT,  OR  SVEN  OPERATION  NAME)  IN  THE 
MACRO  DEFINITION  CAN  BE  A  DUMMY  NAME.  WHEN  USED,  IT  CAN  rE  REPLACED 
BY  A  NAME,  A  NUMBER,  OR  A  LIST.  FOR  EXAMPLE, 

MACRO,  CORFACT  *  A  /  B  /  C  S 
A,  IN  *  B,  COR  =  X$ 

ITEACT,  IN  =  X,  SF  =  C$ 

ENDMACRO  $ 

USAGE  MIGHT  BE, 

CORFACT  =  INTCDS  /  XA  /  XAA  $ 

CORFACT  »  INTMDS  /  XB  /  XBP  $ 

THUS  THE  TYPF  OF  CORRELATION,  COMPLETE  DATA  OR  MISSING  DATA,  I? 
AN  OPTION  WHENEVER  THAT  MACRO  IS  USED. 

A  LIST  CAN  BE  USFD,  OP  A  NUMBER- 

MACRO,  CORFAC  =  A/B/C/D/F  $ 

HEAD  =  D$ 

A,  IN  =  B,  COR  =  X  $ 

IMPACT,  IN  =  X,  SF  =  C,  NFAC  =  P  $ 

FNDMACRO  $ 

USAGE  MIGHT  BE 

CORFAC  =  INTCES  /  XA  /  XC  /  (FFB  68)  /  s  % 

IF  A  LIST,  HOWEVER,  HAS  THE  FORM  ((  LIST  )),  IT  IS  PLUGGED 
WITHOUT  THF  ((  )).  CONSIDER . 

MAC^O,  GLOP  =  A  % 

DO  *  A$ 

(OTHER  STATEMENTS) 

ENDDO  $ 

FNDMACRO  * 

IN  US* 


LOP  =  ( (  3/7  ) )  $ 
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******* ************************************ 

*  * 

*  QU ALIFICATION  OF  FILE  NAMES,  BOTH  * 

*  WHEN  DEFINED  AND  WHEN  CALLED.  * 

*  * 
******************************************* 

A  DUMMY  NAME  CAN  HAVE  QU ALIFICATION  INSTDE  THF  DEFINITION. 

THE  OSAGE  AR30MENT  CAN  ALSO  BE  QUALIFIED.  "HE  OSAGE  ARGOMENT  WITH 
ITS  QUALIFICATION  IS  PLUGGED  WHERE  THE  DUMMY  NAME  WAS,  SO  THAT  THE 
OSAGF  QUALIFICATION  IS  EXECUTED  BEFORE  THE  DEFINITION  QUALIFICATION, 

MACRO  MACRO,  GLOP  =  A  /  B  $ 

DEFINITION  SCAN,  IN  =  A(  C  3-20),  DE  S  *  B  $ 

PRINT  =  4  /  B  $ 

FNDMACRO  $ 


CALL 

RESULTING 

OPERATIONS 


GLOP  =  X  (  R  1-40  )  /  XDES  $ 

SCAN,  IN  =  X(  R  1-40  )  (  C  3-20  ), 

DES  =  XDES  $ 

PRINT  =4  /  XDES  $ 


******************************************* 
*  * 

*  DATA  CARDS  WITHIN  A  MACRO  * 

*  * 
******  ************************************* 


MANY  0 DERATIONS  R EQUIP F  DATA  CARDS.  FOR  *YAMPLf, 

MACRO,  FAC'^LOT  =  A/D  t 
INTCDS,  IN  =  A,  COR  =  B  $ 

ITFACT,  IN  =  B,  SF  =  C,  NFAC=5  $ 

ROTATE,  IN  =  C,  VF  =  D  $ 

PI  O'”  =  D  * 

ENDMACRO  $ 

USAGF  MIGHT  P*1... 

FACPLOT  =  Y  (C  21-40)  /  VFX  $ 

CCCCC 
♦  FVn 

THF  CCCCC  CARD  AND  *FN D  CARD  AFF  DATA  CARDS  USFD  BY  THF 
PLOT  Op^P AT  ION .  IT  SHOULD  BE  NPTFP  THAT  THF Y  OCCUR  A»TEP  THF  CALL 
OP  f!F  MACRO. 

I»,  HOWEVFF,  "'PS?  DATA  CARDS  WERE  TO  BF  USFD  WITHOUT  CHANGE  EACH 
TIM  F  THP  MACRO  WAS  CA.LLFD,  THEY  COUTD  FF  INCLUDED  IN  the  MACRO 
UEFINT'r"rON. 


/ 
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MACRO,  FACPLOT  =  A  /  D  $ 

INTCDS ,  IN  =  A ,  COR  =  B  $ 

I TP ACT,  IN  =  3,  SF  =  C  $ 

ROTATE,  IN  =  C,  VE  =  D  $ 

PLOT  =  D  $ 

MACDATA  =  2  $ 

CCCCC 
♦  END 

ENDNACFO  $ 

THF  *  MACDATA  =  N  S'  SAYS  THAT  N  DATA  CARDS  FOLLOW.  SEVERAL  SETS  OF 
DATA  CAN  BE  INSERTED  AT  APPROPRIATE  PLACES  IN  A  MACPO. 

****************************************** 

*  ♦ 

*  ((GLOBAL))  OSAGE  * 

*  IN  THE  MACRO  DEFINITION.  * 

*  * 
****************************************** 

IT  IS  SOMETIMES  NECESSARY  TO  REFERENCE  A  LABEL  IN  A  MACRO  DEFINITION, 
FOR  EXAMPLE,  ' PBYQ,  POW=AGE, . . . .  ' .  HOWEVER,  THF  MACRO  WILL  THINK  THAT 
•AGE'  IS  A  LOCAL,  TEMPORARY  FILE  NAME  AND  WILL  GENFRATE  A  'QQQQ7*  TYPE 
NAMF  FOR  IT.  THIS  IS  AVOIDED  BY  ENCLOSING  THE  LABEL  WITH  ( () ) ,  AS, 

•PBYQ,  ROW=(  (AGE)) 

A  FILE  NAMF,  TO  BE  OSED  EACH  TIME  ’’’HE  MACRO  EXPANDS,  SHOULD  BE  HANDLED 
THE  SAME  WAY. 


******************************************* 


*  * 

*  AN  EXAMPLF  USING  * 

*  NESTED  MACROS.  * 

*  * 


******************************************* 


ASSUME  THAT  DATA  FILE  'X'  HAS  ABOU^  2,00^  ROWS  (  PATIENTS  IN  A 
DRUG  TREATMENT  EVALUATION  ANALYSIS  )  AND  THF  FOLLOWING  COLUMNS.... 


1 

2 

3-«2 


43-82 

83-122 

123-162 

163-202 


'MTDTCATN',  THE  FT.  NATION  INVOLVED,  1  =  DRUG  A,  2=DPU3  R , 
3=  DP UG  C,  4=DRFG  D. 

•AGE',  PROM  21  TO  70. 

«0  PSYCHOLOGICAL  VARIABLES,  MEASURED  JUST  BEFORE  TREATMENT 
BEGAN,  IN  O^HER  WOPDS,  WEEK  ZERO. 

’’’HF  SAM  F  40  VARIABLES  FE-MEASURFD  APTER  2  WFEKS . 

AGAIN,  APTER  4  WFEKS  OF  TREATMENT. 

A ETFR  8  WTKS, 

A  FINAL  EVALUATION,  AFTER  12  WFEKS. 


WE  WTSH  TO  SEF  IN  TROOP  RELATIONS 
FT VP  UC  B*  4C  MATRICES  )  FOP  EACH  OF 
AND  FOP  AGES  21-30,  31-50,  AND  50-70 


OF  EACH  SET  0*  THE  VAFIABLFS  (  I.E., 
"HE  FOUR  TREATMENT  DRUGS  SEPARATELY, 
SEPARATELY.  THIS  TOTALS  S  X  4  X  3 
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OR  60  PRINTOUTS,  EACH  \  4C  BY  40  MATRIX,  AND  IT  IS  DESIRABLE  THAT  EACH 
HEADING  INDICATE  WHTCH  MATRIX  IS  WHICH. 

THE  FOLLOWING  P-STAT  STATEMENTS  WOULD  BE  ONE  WAY  OF  DOING  ALL  THIS. 
NOTE  THE  USE  OF  XH*AD  AND  SLASHES.  THE  PRINTOUT  ORDER  WILL  BE... 

DRUG  1,  AGE  21-30,  EACH  WEEK  IN  TURN,  THEN  DRUG  1  STILL,  AGE  31-50,  EACH 
WEEK,  ETC. 

HE*  n  =  '  NOV  20,  1970.  PILE  X  DATA.  ///  )  « 

FIND  =  X  $ 

MACRO,  LEVEL1  =  H  /  P  $ 

XHEAD  =  H,  SLASH  =  3  $ 

LEVEL2  =  (  AGE  21-30  /  )  /  P(  IF  AGE  INPANGE  (  21,30  ),  RETAIN  )  $ 

LEVEL2  *  (  AGE  31-50  /  )  /  F(  IF  AGE  INRANGE (  31,50  ),  RETAIN  )  $ 

LFVEL2  =  (  AGE  51-70  /  )  /  P(  IF  AGE  TNRANGE  (  51,70  ),  RETAIN  )  $ 

END"ACRO  $ 

MACRO,  LEVEL2  =  H  /  P  $ 

XHEAD  =  H,  SLASH  =  ?  t 

LEVEL3  =  (  WFFK  0  )  /  P(  C  1,  2,  3-  42  )  $ 

L*VEL3  »  (  WEEK  2  )  /  P(  C  1,  2,  43-  82  )  t 

LEVEL3  =  (  WEEK  4  )  /  P(  C  1,  2,  83-122  )  $ 

LEVEL  3  =  (  WEEK  8  )  /  p(  C  1,  2,  123-162  )  $ 

LEVEL 3  =  (  WEEK  12)  /  P(  C  1,  2,  163-202  )  S 

ENDMACRO  $ 

MACPO,  LFVEL3  =  H  /  Y  $ 

XHEAD  =  H  $ 

I NT MDS ,  IN  =  Y  (  C  3*  ),  COP  =  R  $ 

RPR TNT  =  R  $ 
wNDMACPO  $ 

LEVEL 1  =  (  DRUG  1 ,  A  //  )  /  X(  TF  MECICATN  EQ  1,  RETAIN  )  S 

LEVrLl  =  (  DRUG  2,  R  //  )  /  X(  IE  MEDICATN  EQ  2,  RETAIN  )  $ 

LEVEL  1  =  (  DRUG  3 ,  C  //  )  /  X(  IE  MEDICATN  EQ  3,  RETAIN  )  t 

LEVEL  1  =  {  DRUG  4 ,  D  //  )  /  Y(  if  MEDICATN  EQ  4,  RETAIN  )  $ 

rND  t 

Tm  MAY  3E  HFLPEUL  TO  NOTE  THAT  THE  HEAPING  OF  THE  *IRST  PRINTED 
CORRELATION  MATRIX  WOULD  BE..... 

NOV  2^,  197''.  »ILE  X  DATA.  /  DRUG  1,  A  /  AGE  21-30  /  WEEK  0 
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21.  DO  LOOPS  OP  P-STAT  OPERATIONS 

A  DO  LOOP  PERMITS  A  SEQUENCE  OP  P-STAT  STATEMENTS  TO  BE 
EXECUTED  A  NUMBER  OP  TIMES.  THE  NUMBER  OP  TIMES  DEPENDS  ON  THE 
RANGE  OF  AN  INDEX,  WHICH  IS  DEFINED  IN  THE  DO  STATEMENT  ITSELF. 

EACH  TIME  THROUGH,  CERTAIN  PILP  NAMFS  ARE  CHANGED,  USING  THE 
CURRENT  VALUE  OP  THE  INDEX  AS  PART  CP  THE  PILE  NAME. 

A  DO  LOOP  HAS  THRFE  PARTS... 

-  1  - 

A  DO  CARD.  THIS  HAS  DO  AS  THE  OPERATION  NAMP.  FOR  EXAMPLE... 
DO  =  1/5  $ 

THIS  CARD,  STARTING  THE  LOOP,  DEFINES  THE  INDEX  RANGE.  IN  THE 
ABOVE  EXAMPLE,  A  LOOP  WOULD  BE  EXECUTED  5  TIMES,  WITH  THE  INDEX 
BEING  1,  THEN  2,  THEN  1  AND  4  AND  5.  AS  IN  FORTRAN  DO  STATEMENTS, 

A  THIRD  INTEGER  (DO  *11/  30/5$)  SAYS...  USE  11,16,21,  AND  26 
AS  INDICES  IN  THE  4  PASSES  THROUGH  THE  LOOP.  THUS,  'rHE  DO  CARD 
DEPINPS  AN  INITIAL  INDEX,  A  FINAL  INDEX,  AND  PERMITS  AN  OPTIONAL 
STEP  SIZE,  SET  TO  1  IF  THERE  NAS  NO  THIRD  INTEGER  IN  THE  DO  STATEMENT. 

. . .  2  . . - . . 

VARIOUS  P-STAT  STATEMENTS.  THPSE  ARE  THE  STATEMENTS  THAT  ARE 
LOOPED  THROUGH.  THERE  HILL  BE  PEFFPENCES  TO  PILES  IN  SOM?  OP  THESE 
STATEMENTS.  EVERY  PILE  NAME  ENDING  IN  .0  HILL  BE  CHANGED  (  THE  NAME, 
NOT  THE  PILE  ITSELF  )  EACH  TIMF  THROUGH  THE  LOOP.  PILE  NAMES  NOT  ENDING 
IN  .0  ARP  NOT  MODIFIED.  THE  NAME  X.O  WOULD  BE  CHANGED  TO  X.1  THE 
PIRST  TIMF  THROUGH  (  ASSUMING  THF  INDEX  STARTED  WITH  1  ). 

- - -  3  - 


AN  ENDDOS  CARD,  DEFINING  THE  END  OP  THE  LOOP. 


WHEN  A  DO  CARD  IS  FOUND,  ALL  CAPES  BETWEEN  THE  DO  AND  THE 
ENDDOf  ARE  READ  AND  STORED  IN  AN  AREA  THAT  CAN  HOLD  UP  TO  1600 
CHARACTERS  (I.E.,  THAT  IS  THE  MAXIMUM  SIZE  OF  A  DO,  20  FULL  CARDS). 
THEN  THE  LOOP  IS  EXECUTED  WITH  THE  INDEX  VALUE  PLUGGED 
WHEREVER  .C  WAS  POUND  AT  THE  END  OP  PILP  NAME.  THE  STEP  SIZE  IS 
TH*N  ADDED  TO  THE  INDEX .  IF  IT  IS  NOT  OVPR  the  PINAL  INDEX  VALUE 
THR  LOOP  IS  DONE  AGAIN  WITH  THIS  NFW  INDEX  PLUGGED  WHERE  .D  WAS  I 
THE  BEGINNING,  AND  SO  ON. 

A  DO  LOOP  CANNOT  HAVF  ANOTHER  DO  LOOP  INSIDE  IT. 

DATA  CARDS  NECESSARY  FOR  OPERATIONS  WITHIN  The  DO  MUST  BE  PLACED 
AFTER  THE  ENDDO,  ONE  SET  FOP  *ACH  PASS  THROUGH  THE  DO,  OR  ELSE  A 
CALL  TO  A  MACRO  CAN  BF  HADE  (MACROS  CAN  HAVF  INTERNAL  DATA) 

IE  THE  DATA  CARDS  ARE  THE  SAME  FACfi  TIME  THROUGH  THE  DO  LOOP. 
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CONSIDER  THIS  SIMPLE  DO  LOOP. 

DO  a  1/30  $ 

INTCDS,  IN  =  A.O,  COR  =  AIN.O  $ 

PRINT  =  3/AIN. 0$ 

ENDDO  $ 

THIS  MIGHT  BE  DONE  IP  A  USER  HAD  DATA  FROM  30  STATES,  BACH 
A  SEPARATE  FILE  (  NAMED  A.1,  A. 2,  THROUGH  A. 30  ),  AND  HE  NEEDED 
CORRELATIONS  OF  THE  VARIABLES  IN  EACH  PILE.  EXECUTION  OP  THIS  LOOP 
WILT  CAUSE  30  CORRELATION  MATRICES  TO  PRINT.  (  IP  THIS  CAUSES  TOO 
MANY  ACTIVE  PILE  NAMES  FOR  THE  INTERNAL  P-STAT  SYSTEM  TO  MAINTAIN... 
PURGE  *  AIN.O  $ 

COULD  BE  PUT  AFTER  THE  PRINT  STATEMENT.  ) 

DO  LOOPS  AND  MACROS  (SEE  SECTION  ON  MACROS)  CAN  INTERACT. 

EOR  EXAMPLE... 


MACRO,  DOMAC  =  A/G/B/C/DS 
DO  =  AS 

MERGE,  LEFT  =  G (C  1-4),  RIGHT  =  B,  OUT  =  C$ 
DS 

FNDDOS 

ENDNACROS 


THE  ABOVE  DEFINES  THE  MACRO.  THIS  CARD  USES  THF  MACRO... 

DOMAC  =  ((3/5))  /  X.O  /  Y.O  /  2.0  /  ((PRINT  =  Z.P))  $ 

IF  A  DO  LOOP  NEEDED  A  FEW  DATA  CARDS  FOR  EACH  PASS  THROUGH  THE 
LOOP,  AND  THE  DATA  CARES  WERE  THE  SAME  EACH  TIME,  A  MACRO  COULD  BE 
DEFINED  WHICH  EXECUTES  THF  STEP  USING  THE  DATA,  AND  INCLUDES  THE  DATA 
TN  TH v  DFRI NITON.  THE  'DO'  LOOP  COULD  THEN  CALL  THE  MACRO  EACH  TIME. 


r  i  'if  '  ~  -li—lfc  *  a  nr 
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22.  JCL  FOB  REFERENCING  TAPES  ON  THE  360 

A  RON  USING  AN  ALREADY  CREATED  PERMANENT  DATA  TAPE  WOULD  BE... 
//  JOB  ETC. 

/♦SETUP  UNIT=TAPE9,ID= (1357, READ, KEEP, SL) 

//  EXEC  PSTAT52,P61=1357,NAME61=PILENAME 
//PSTAT, SYSTN  DD  * 

{  P-STAT  CARDS  ) 

/* 

CONSIDER  THE  »/*SETUP'  CARD.... 

'TAPES'  REQUESTS  MOUNTING  ON  A  NINE-TRACK  TAPE  DRIVE. 

'1357'  IS  AN  EXAMPLE  OP  A  TAPE  NUMBER  AT  PRINCETON.  THE 
OPERATOR  USES  THIS  INFORMATION  TO  LOCATE  THE  PROPER  TAPE 
ON  THE  TAPE  *>ACK. 

•READ'  MEANS  THE  TAPE  WILL  BE  MOUNTED  WITHOUT  A  RING 
(  I.E.  IT  CANNOT  BE  WRITTFN  ON  ).  SAYING  'WRITE'  WOULD 
OF  COURSE  PERMIT  WRITING  ON  THF  TAPE  DUPING  THIS  RUN. 

•KEEP'  IS  MILDLY  SUPERFLUOUS  BUT  SHOULD  STILL  BE  THERE. 

'SL'  INDICATES  THAT  THF  TAPE  HAS  AN  CS/360  STANDARD  TAPE 
LABEL.  IT  IS  FOLLY  FOR  A  360  TAPE  NOT  TO  BE  STANDARD 
LABELLED. 

IN  THE  •//  EXEC  CARD.... 

' PSTAT52 '  IS  THE  NAME  OF  A  CATALOGED  PROCEDURE  THAT 
DEFINES  THE  P-STAT  SCRATCH  FILES,  BTC.,  AND  BRINGS  IN 
THE  P-STA’”  OVERLAY. 

' P6 1 '  MEANS  THAT  THIS  IS  A  PERMANENT  DATA  TAPE  USING 
LOGICAL  TAPE  NUMBER  61. 

'1357'  IS  A  PRINCETON  TAPE  NUMBER.  IT  IS  CHECKED  AGAINST 
THE  VOLUME  NUMBER  IN  THE  STANDARD  LABEL  TO  ENSURE  THAT 
THE  CORRECT  TAPE  HAS  BEEN  MOUNTED. 

'  NAM1?61 '  SAYS  THAT  A  DATA-SET  NAME  POLLOWS,  AND  IT  IS  THE 
NAME  OF  THE  FIRST  DATA-SET  ON  TAPE  61. 

' EILENAME '  IS  THW  NAME  GTVFN  TO  THE  DATA- SFT  WHEN  THE 
DATA-SET  WAS  WP ITTFN  FOR  THE  FIRST  ’"IMF.  THIS  OCCURS  WHEN 
' DISP6 1=NEW* ,  FOR  EXAMPLE,  WAS  PRFSENT.  SEE  BELOW. 

AT  PRINCETON,  A  VOLUME  LABEL,  INCLUDING  THE  PRINCETON 
‘PAPE  NHMBFP,  IS  WRITTEN  WHEN  THE  TAPE  IS  STANDARD 
LABELLED.  THIS  OCCURS  WHFN  TH E  TAPE  IS  ISSUED  TO  THE 
USER.  WHEN  THE  t’APE  IS  USED  IN  A  P-STAT  RON  *OR  THE 
FIRST  TIM*,  A  DA*” A-SFT  IS  WRITTFN.  THAT  DAT A-SFT  HAS  A 
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LABEL ,  OP  NAME,  A  DSNAME.  8 HEN  THE  TAPE  IS  USED  AGAIN, 
CHECKING  THAT  THE  DSNAME  IS  CORRECT  IS  A  GOOD  SOURCE  OP 
PROTECTION. 

A  DATA-SET  NAME  CAN  BEGIN  WITH  OP  TO  8  LETTERS  AND/OR 
NOMPEPS.  IT  MOST  START  HITH  A  LETTER.  IT  CAN  BE  A 
SINGLE  NAME,  OF  SEVERAL  NAMES,  SEPARATED  BY  PERIODS. 

IF  THE  NAME  HAS  PERIODS  IN  IT,  THE  ENTIRE  NAME  MUST  BE 
IN  QUOTAS.... 

NAM E61-* NAME. OF. FILE* 

IF  A  SINGLE  NAME  IS  OSFD,  QUOTES  ARE  OPTIONAL.... 

NAME61  -'NFHDATA*  OR 
NAME6 1=NFWDATA 

A  PUN  USING  A  PERMANENT  DATA  TAPE  AND  AN  ASSIGN/ATTACH  TAPE 
(ASSUME  THE  PERMANENT  DATA  TAPE  IS  NUMBER  1234  AND  IS  TO  BE 
WRITTEN  ON,  AND  THE  ATTACH  TAPE  IS  NUMBER  5555  AND  IS  ONLY  TO 
PE  FEAD,  AND  BOTH  ARE  9  TRACK)  BCULD  BE... 

//  JOB  ETC. 

/*S F^UP  UNI'”=TAPE9,ID=  (12 3 4 ,8RITE , KEEP ,  SL) 

/*SFTUP  UNIT=TAPE9,ID=(5555,READ,KFEP,SL) 

//  EXEC  P3TAT52,P61=1234,NAME61=*PDT. DSNAME', 

//  A  5  1  =  5555, NA ME5 1  =  ' ATTACH . DS NAME1 
//PSTAT. SYSIN  DD  * 

{  P-STAT  CARDS  ) 

/* 

THF  CATALOGED  PROCEDURES  ALLOW  UP  TO  3  PERMANENT  DATA  TAPES 
AND  HP  TO  5  ASSIGN/ATTACH  TAPES.  THF  PERMANENT  TAPES  IN  THE 
PROCEDURE  INVOLVE  NUMBERS  61-63  (  SEE  OPERATION  • NEHPDT  *  ). 

Jv  NUMBERS  64-69  NEED  TO  PF  USFD,  SEPARATE  ’DD*  CARDS  MUST  BE 
nSED.  TH’  ASSIGN/ATTACH  "APPS  INVOLVE  NUMBERS  51-55.  AGAIN, 
mope  nk N  HP  USED  WITH  'DD'  CARDS. 


7H~  CATALOGED  PPOCFDUFF  MAKES  USE  OF  THE  ' NULLFILF*  PACILITY 
IN  OS/36C  JCL .  AS  MENTIONED  ABOVE,  PERMANENT  TAPES  61-63  AND 
* SSIGN/A^^ACH  TAP’S  51-55  ARE  ALLOWED,  IF  YOU  REFERENCE  THFM  ON 
mHE  '  EXEC*  C A ° D ,  •  P6 1  *  INVOKES  USAGE  OF  PERMANENT  TAPE  61, 

»A52»  INVOKES  ASSIGM/ATTACH  TAP''  c-2.  THUS,  P61,  P62,  P63,  A51, 
Ac'2,  Ac,f  Ar'4,  ANT  A S 5  ARE  KEYWOFOS  ON  THE  PROCEDURE  WITH  WHICH 
A  TAP’  Nil* RE E  CAN  PE  ASSOCIATED. 

NO’E  -  NUMBERS  LTK F  r-i  AND  61  APE  P-STAT  NUMBERS.  A  PRINCETON 
Tfvr  nu*B’D  LIKE  1713  IS  USED  TO  ’IND  THE  TAPE  IN  THE  COMPUTER 
’COM.  TH  ’  ">60  SYSTEM  D’ADS  THF  STANDARD  LABEL  TO  SEE  THAT  IT 

ts  orally  Tur  correct  "ad f  (  thf  tap’  number  is  part  or  the 

S'* ’NO  ADD  L  A  B’L  ).  *  PC  1  =  1713*  ESTABLISHES  A  CORRESPONDENCE. 

WHEN  o-s*1#’  ss’SES  ’0  PI,  IN  THIS  EXAMPLE,  IT  ACTUALLY  GETS 
’AO"  1713. 


P-STAT  VERSION  5?.  5) 


PATE  If  2 


WHEN,  FOE  EXAMPLE,  »P63=0723*  IS  USED,  THE  NAME  POE  THE  DATA¬ 
SET  ON  TAPE  0723  MOST  ALSO  EE  SOPPLIED.  THIS  NAMF  WAS 
SUPPLIED  WHEN  THE  DATA  SET  WAS  FIRST  BEGUN.  7  HIS  IS  A  OSEFUL 
BIT  OF  REDUNDANCY.  IF  'SEPT69. NJDATA •  IS  THE  DSNAME  ON  TAPP 
0723  AND  YOU  CITE  TAPE  C732  (  ALSO,  PERHAPS,  ONE  OP  YOURS,  BUT 
NOT  WHAT  YOU  WANT  TO  BE  USINO  HERE  ),  THE  DSNAMF  CHECK  KILLS 
THE  JOB.  KEYWORDS  NAMF51 ,  NAME  52,  NAMF53,  NAMF5U,  NAM?55, 
NAME61,  NAME62,  NAMF63  APE  ALLOWED.  I*  P63  IS  USED,  NAME63 
MUST  BE  USED  WITH  IT. 

SO  FAR,  TWO  KEYWORDS  MUST  BE  SUPPLIED  FOR  EACH  P-STAT  TAPE 
BEING  USED.  ONE  ADDITIONAL  KEYWORD  IS  POSSIBLE.  *DIS?61=NEW* 
SHOULD  BE  USED,  FOR  EXAMPLE,  WHEN  A  NEW  P61  IS  BEING 
INITIALIZED  (  BY  'NEWPDS*  ).  IF  THIS  IS  NOT  PUNCHED,  THE 
PROCEDURE  WILL  DEFAULT  TO  'OLD*  AND  THEREFORE  CHECKS  THAT  THE 
HEADER  LABEL  0?  THAT  DATA-SET  ON  THAT  TAPE  IS  ALREADY  THERE 
AND  THAT  THE  DATA-SET  NAME  IS  AS  ADVERTISED.  AGAIN,  DISP51, 
DISP52,  ETC.,  CAN  BE  USED,  BUT  FOR  THIS  KEYWORD,  'NEW*  IS  THE 
ONLY  SENSIBLE  SETTING,  IT  IT  IS  USED  AT  ALL. 

JUST  FOP  THE  RECORD,  DISP  STANDS  FOR  DISPOSITION. 

ASSUME  TAP?  0123  IS  A  PERMANENT  DATA  TAPE  WITH  FILE  •»» 
c  OMEWHERE  ON  IT.  A  NEW  TAPE,  4567,  IS  AVAILABLE  AND  WE  WISH 
TO  PLACE  FILE  A  ON  IT  SO  THAT  IT  CAN  LATFP  EE  • ATTACHED' . 

//  JOB  ETC. 

/♦SETUP  UNIT=TAPE9,ID=  (01 23 ,P EAD, KFEP,SL) 

/♦SETUP  UNTT=?APE9,ID-  (4 567, WRITE, KEEP, SL) 

//  EXEC  PSTAT52, 

//  P61=0123,NAME61='PDT.ABL», 

//  A  51 -U567,NAME51  =  ' SENIOR. RAW. DATA  »,PISP51=NEW 
//PSTAT. SYSIN  DD  * 

ASSIGN  =  A,  TAPE  =  51  $ 

FIND  =  A  $ 

END  t 
/* 

US?  OP  NON-LABELLED  OR  MULTI- FILED (  O.S.  FILES,  NOT  P-STAT 
FILES  )  TAPES  NEEDS  SEPAP ATE  JC!  TO  OVERRIDE  THE  PROCEDURE. 

NOTE  -  IN  THE  '//  EXEC  PSTA^'  CARE,  ’’’HE  Tape  INFORMATION,  IF 
IN  USE,  MUST  BE  PUNCHED  WITH  NO  INTERN?  L  PLANKS. 

//  EXEC  PSTAT 52 ,  P61=D123,  NAMF61  =  PDT1 

WOULD  FLICTT  »  JCT  ERROR  MESSAGE. 

NO^E  -  AT  PRINCETON,  ,”H?  IBM  MODEL  2401-6  TAPF  DRIVES  PERMIT 
EITHFF  BOO  OR  1600  DENSITY.  JCL  STATEMENTS,  ,PEV=2'  M?A  NS 

800  AND  '  DFN=  3 '  MEAN'S  160C.  THE  E-S  TA*  PROCEDURES  ASSUME  1600 
DENSITY  (  AS  OF  LATE  JANUARY,  197?  )  POP  FILE^  51-55  AND  61-63. 
THE  FOLLOW T NG  CARDS,  TNS7PTEP  R^EORF  THE  ' //?STA T. S YSI N  DD  ♦« 
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CARD,  WOULD  ALLOW  THE  USE  OF  800  DENSITY  TAPES  IN  THE  PREVIOUS 
EXAMPLE. 

//PSTAT.FT51ECQ1  DD  DCB=DEN=2 
//PSTAT. F^flEOOl  DD  DCB=DEN*2 

NOTE  -  THEY  ARE  ORDERED  BY  NUMBER,  51  BEFORE  61.  THE  ORDERING 
IS  NECFSSA RY  IN  'DD*  CARDS  SUCH  AS  THESE,  BUT  IS  NOT  NECESSARY 
WITHIN  THE  •//  EXEC  PSTAT52,ETC.  •  STATEMENT. 

**************** ************ ********** 

*  CARD  IMAGE  TAPES  FOR  ‘DATA*  * 

************************************** 

THIS  EXAMPLE  SHOWS  A  'DATA*  OPERATION  WHOSE  INPUT  IS  ON 
TAPE  02,  NUMBERED  3456,  WHOSE  DATA  SET  NAME  IS  'CARDS' . 

//  JOB 

/♦SETUP  UNIT=TAPE9,TD=  (345 6 , READ, KEEP , SL) 

//  EXEC  PSTAT52 

//PST AT, ET92F001  DD  PS NAME= CARDS ,UNIT=TAPE9,LABEL=(1,SL) , 
VOL=SEP=34r6,DISP=  (OLD, KEEP) 

//PSTAT. SYSIN  DD  ♦ 

DATA  =  A,  TAPF  =  02,  ETC. 
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23.  ADDING  USER-WRITTEN  TEMPORARY  LINKS  TO  THE  SYSTEM 

NpW  LINKS  (  OPERATIONS,  PROGRAMS,  ETC.  )  CAN  BE  ADDED  TO  THF  P-STAT 
SYSTEM  BY  USERS.  THESE  CAN  BE  EITHER  TEMPORARY  (  CALLABLE  BY 
THE  OPERATION  NAMES  USER1,  USER  2,  USER 3 ,  USER  4,  OR  USER  5 ,  OP 
THEY  CAN  BE  PERMANENT  LINKS  (  WITH  THE  OPERATION  NAMES  ENTERED 
INTO  THE  SYSTEM  DIRECTORY  )  . 

THERE  ARE  2  STEPS  IN  DOING  THIS, 

A  -  WRITING  THE  LINK  -  WHAT  CONVENTIONS  APF  PROVIDED  TO  USE 
INFORMATION  ON  CONTROL  CARDS,  TO  ACCESS  A  PILE,  ETC. 

B  -  ATTACHING  THE  LINK  TO  THE  SYSTEM  A ND  USING  IT  -  HERE, 
TECHNIQUES  FOR  VARIOUS  COMPUTERS  DIFPER  GREATLY.  THIS 
DESCRIPTION  HOLDS  FOR  THE  360  OVERLAY  VERSION. 


*  A  -  WRITING  THE  LINK  * 


FIRST,  HOW  DOES  THE  SYSTEM  KNOW  ABOUT  THIS  LINK. 

WHEN  A  CONTROL  STftTEMENT  IS  READ,  FOP  EXAMPLE. 

MERGE,  LEFT  =  A,  RIGHT  =  D,  OUT  =  C$ 

THE  OPERATION  NAME  MERGE  (FOUND  ON  THE  CARD)  IS  COMPARED  WITH  ALL  KNOWN 
NAMES.  WHEN  A  MATCH  IS  FOUND  WITH  A  KNOWN  NAME,  A  TRANSFER  IS  TAKEN, 
OUT  OF  THE  EXECUTIVE  ROUTINE,  TO  THE  APPROPRIATE  PROGRAM.  THE 
OVERLAY  IS  ORIGINALLY  GENERATED  WITH  NULL  OPERATIONS  IN  THi'  USER  1 
THROUGH  USER5  POSITIONS. 

A  USER-PROVIDED  LINK  CAN  BE  A  TEMPORARY  LINK  OR  A  PERMANENT  ONE. 

A  TEMPORARY  LINK  USES  THF  OPERATION  NAMES  USEP1  THROUGH  USERS . 

THESE  NAMES  ARE  ALREADY  IN  THE  SYSTEM.  THE  SYSTEM,  WHENEVER  A  CONTROL 
CARD  SAYS  USER1,  PINDS  THE  HATCH  AND  TRANSFERS  BLINDLY,  ASSUMING  THE 
USER'S  PROGRAM  IS  INDEED  THERE. 

MAKING  A  LINK  PERMANENT  REQUIRES  ADDING  THE  NEW  NAME  TO  SYSTEM 
SUBROUTINE  PSINOP  (WHERE  THE  KNOWN  NAMES  ARE  GENERATED),  MODIFYING 
EXEC  AND  PS  MAIN  TO  MAKE  THE  APPROPRIATE  TRANSFER,  AND,  OF 
rnnRSF.  maktng  the  new  t.tnk  a  part  CF  THF  OVERLAY  STRUCTURE. 

(  I.F.',  MODIFYING  THE  OVEPLAY  DEFINITION  DECK  ). 

IN  ANY  CASE,  A  NEW  OVERLAY  MUST  BE  GENERATED.  ON  A  91  WITH  MVT , 

A  REGION  OF  15fK,  CPU  TIMF  OF  1C  SFCCNDS,  AND  9K  I/O  REQUESTS  ARE 
INVOLVED.  ABOUT  4  ACTUAL  MINUTES  ARE  USED,  AND  THE  FULL  PRINTOUT 
IS  ABOUT  60  PAGES. 
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CONSIDER  A  LINK  THAT,  FOR  A  FILF  HP  TO  60  BY  60 ,  CREATES 
A  NEW  FILF  BY  ADDING  3  TO  EACH  VALUE  IN  THE  OLD  FILE.  THIS 
PROGRAM  COULD  PE  PUNCH FD  AS  IS  AND  RUN  ON  THE  360  P-STAT  SYSTEM. 

SUBROUTINE  USER1 
C 

C  TEMPORARY  LINK  TO  ADD  3.  TO  EACH  SCORE 

C  FIRST,  o-STAT  COMMON  USABLE  BY  A  LINK. 

C 

COMMON/PSLCLL/  OQRL  (2,450) ,  QQCL(2,  450),  QQL  (2) ,  QQLL  (2) , 

1  QQLtL  (2)  ,  QQHFAD (20)  ,  CQSL,  KKIN ,  KKOUT,  KK5,  KK6 ,  QQBLAN, 

2  OOMISS,  QQVBAR,  KKCOL,  KKUF1  ,  KKUF2,  KKUF3 

C  NOW,  STORAGF  FOR  THIS  PROGRAM 

C 

COMMON  X  (60 ,60) 

C  STORAGF  FOR  IDENTIFIERS 

C 

DIMENSION  IN  (2)  ,  OUT (2) 

C  SET  UP  COMMUNICATION  WITH  THE  CONTROL  CARD 

C  THE  CARD  COULD  SAY, 

C  USER  1 ,  IN  =  A,  CUT  =  A3  $ 

C 

DATA  IN  /  4H  ,  4H  IN  / 

DATA  OUT  /  an  ,  4H  OnT  / 

C  GET  THE  FILE  WHOSE  NAME  WAS  ASSOCIATED  WITH  ‘IN' 

C  ON  THE  CONTROL  CARD,  '  IN  =  A  * 

C  SUBROUTINE  PSFIN  WILL  PUT  THE  DATA  IN  X,  THE  ROW 

C  LABELS  IN  OQRL,  THE  CCLUMN  LABELS  IN  OQCL,  AND  WILL 

C  SET  NR  BY  NC  TO  ITS  ACTUAL  SIZ* 

C  IT  CANNOT  BE  OVER  60  BY  60,  THE  DIMENSIONS  OF  X 

C 

CALI  PSFIN  (  IN,  X,  OQRL,  OOCL ,  NR,  NC,  60,  60) 

DO  50  I  =  1,  NR 
DO  40  J  =  1  ,  NC 

IF  (  X(I,J)  -OQMISS)  40,  30,  40 
30  CALL  PSBAD  (23H  *IN  HAS  HISSING  DATA..) 

40  X  (I ,  J)  =  X(T,J)  +3. 

50  CONTINUE 

C  NOW,  CAUSE  tkf  SYSTFM  TO  CREATE  A  N*W  FILE 

** 

CALL  PSEOUT  (OUT,  X,  QOFL,  OOCL,  NR,  NC ,  60,  60, 

1  26H  *IN  WT^H  ADDED  TO  IT..) 

CALL  USN^X"' 
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THERE  ARE  A  NUMBER  OP  SPECIFIC  TOPICS  TO  EXPLAIN, 

1.  P-STAT  SYSTEM  DIMENSIONING. 

2.  THE  DIMENSIONING  WITHIN  A  LINK. 

3.  THE  DIMENSIONING  AND  INITIALIZATION  OF  THE  IDENTIFIERS. 

4.  COORDINATION  BETWEFN  THE  SUBROUTINE  NAME  AND  THE 
P-STAT  OPERATION  NAME. 

5.  ACCESSING  THE  CONTROL  CARD. 

6.  WHAT  IS  A  FILE. 

7.  HON  TO  GET  A  COPY  OF  IT  IN  COPE. 

8.  HOW  TO  CREATE  A  NEW  FILE. 

9.  ERROR  MESSAGES. 

10.  WHEN  DONE,  RETURNING  TO  THE  EXECUTIVE  ROUTINE. 

11.  RE-FORMATTING  INFORMATION  INTERNALLY. 

+**+++++4++*** **4********** 

1.  P-STAT  SYSTEM  DIMENSIONING* 

*************************** 

A  *  IS  NEXT  TO  A  NAME  IF  A  TYPICAL  LINK  IS  LIKELY  TO  USE  IT. 

♦QOFL  (2,450),  QQCL  (2,450).  RL  =  ROW  LABFLS,  CL  =  COLUMN  LABELS. 
THE  SYSTEM  PERMITS  A  FILF  TC  HAVE  UP  *0  450  COLUMNS  AND  ANY 
NUMBER  OF  ROWS  (NO  PROMISFS  ABOVE  100,000  -  FOP  THAT  MATTER, 

NO  PROMISES  BELOW  100,000  ROWS,  BUT  ABSOLUTELY  NO  PROMISES 
ABOVE  100,000).  EACH  ROW  AND  EACH  COLUMN  HAS  A  LABEL,  UP  TO 
8  CHARACTERS,  STORED  4  CHARACTERS  PER  WORD,  HFNCE  2  BY  450. 

THE  NEED  EOF  450  COLUMN  LABFLS  IS  CLFAP . 

PERMANENT  SPACE  EOR  450  ROW  LABELS  IS  LESS  MANDITOPY, 

BUT  CONVENIENT  ENOUGH  SO  IT  IS  THERF.  A  USER  MAY  USE  THESE 
ANY  WAY  HE  WISHES. 

*  QQL (2)  ,  QQLL (2) ,  QQLLL (2)  .  THESE  ARE  3  SEPARATE  LOCATIONS 
FOR  LABEL  STORAGE.  FOP  EXAMPLF,  WHEN  A  ROW  OF  A  FILE  IS 
READ,  THE  LABEL  (A  TWO  uORD  LABEL)  NEFDS  TO  GO  SOMEWHERE. 

OQL,  QQLL,  AND  QQLLL  *  PROVIDED  EOF  TEMPORARY  LABEL  STORAGE. 

♦QQHE AD (20) .  THIS  CONTAIN^  THE  CURRENT  HEADING,  IN  2PA4  FORMAT. 

IF  A  USE*  LINK  PRINTS  SOME  RESULTS,  IT  MAY  WISH  TO  HEAD  THE 
RFSULTS. 

OQGL  -  US*  OF  QQGL  FOP  A  LABEI  (  OP  LABELS  )  TELLS  THE  SYSTPM  TO 
GENERATE  THEM  (  II,  L2,  ETC.  ). 

KKTN,  KKOUT  -  NAMES  0*  PSUFDO-BUFF'PS  (  OP  INTERNAL  FIL'S  ) 

FOR  WRITING  »ND  READING,  I. I.,  R F-FO'MA TTING . 

KKS  -  TH*  INPn^  FT L' 

♦KK6  -  THF  OUTPUT  FILF.  IF  A  LINK  PRINTS  RESULTS,  IT  WRIT'S 
TO  FILE  KK8. 


(  P-STAT  VFRSTON  52.5) 


PAGE  107 


QQBLAN  -  CONTAINS  BLANKS  READ  IN  A4  FORMAT. 

*QQMISS  -  CONTAINS  THE  MISSING  DATA  VALUE. 

OOVBAR  -  SFE  THE  OPERATION  *VBAE'. 

KKCOL  -  CONTAINS  THE  MAXIMUM  NUMBER  OF  COLUMNS  PERMITTED  - 
CURRENTLY  450. 

KKUF1 ,  KKUF2,  KKHF3.  THESE  ARE  SCRATCH  FILES  USABLE  BY  A  LINK  FOR 
UNFORMATTED  WRITES  AND  READS. 

************************** 

2.  A  LINK'S  OWN  DIMENSIONING* 

*★************+*********** 

WHEN  CHOOSING  NAMES  FOR  VARIABLES,  NOTE  THAT  ALL  P-STAT  SYSTEM 
NAMES  START  WITH  KK  OR  QQ.  NAMES  OF  P-STAT  SYSTEM  SUBROUTINES 
START  WITH  PS  OR  PX.  A  PROGRAMMER  ABOUT  TO  WRITF  A  NEW  LINK  OUGHT  TO 
CHECK  HIS  PROSPECTIVE  SUBROUTINE  NAMES  WITH  THE  ALPHABETIC  (  I.E.,  SORTED  ) 
LIST  AT  THE  END  0*  THE  'SOURCE'  OUTPUT  LISTING. 

A  USER  SHOULD,  OBVIOUSLY,  AVOID  CONFLICTING  NAMES. 

VERSION  52  PEP  MIT  S  ABOUT  73, COO  WORDS  OF  DIMENSIONING  IN  BLANK 
(UNLABELLED)  COMMON  FOR  A  USER  LINK.  A  LINK  CAN,  OF  COURSE,  USE  MORE 
DIMENSIONING.  IF  SIGNIFICANTLY  MOPE  IS  USED,  THE  REGION  SIZE  FOR  THE 
OVERLAY  WILL  NEED  TO  BE  THAT  MUCH  LARGER. 

************ 

3.  IDENTIFIERS* 

** *** ******* 

A  n- STAT  LINK,  WHEN  IT  CALIS  A  SYSTEM  SUBROUTINE,  GENERALLY 
T*LLS  THF  SUBROUTINE  WHICH  IDENTIFIER  IT  IS  INTERESTED  IN.  IF  A 
CONTROL  CARDS  SAYS...  IN  =  A,  THE  LINK  NEVER  KNOWS  THE  NAME  OF  THE 
FIL*.  T'r  WILL  INSTEAD  READ  WHATFVFP  FILE  (  HERE,  FILE  •  A'  )  IS 
ASSOCIATED  WI^H  IDENTIFIED  'IN'. 

CALL  PS  din  (IN,  X,  ETC...) 

THr  USE  OF  'IN'  IN  THF  CALL  TS  NOT  ADEQUATE ,  BECAUSE  'IN'  IS  THE 
NAME  OF  A  VARIABLE  WHEN  IT  WAS  COMPILED,  AND  TS  NOT  NECESSARILY 
ITS  CONTENT*  DURING  EXECUTION. 

CALL  PSBIN  (2HTN,  X,  ETC.  .  . 

COULD  wn»K,  BUT  2HTN  IS  ILLEGAL  IN  FUNCTION  CALLS.  THEREFORE, 

*ACH  I DEN'rT  RTF?  IS  DIMENSION*!)  (2)  ,  AND  A  DATA  STAT'M^NT  PLACES  THE 
LITFPAL  CHARACTERS  TNI Tpjr  DIMENSIONED  AREA. 
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FOR  EXAMPLE.. 

DIMENSION  LFF?  (2)  ,  RIGHT  (2),  OUT  (2) 

DATA  LEFT  /  4H  ,  4HLEFT  / 

DATA  RIGHT  /  4H  R,  4HIGHT  / 

DATA  OUT  /  4H  ,  4H  OUT  / 

THE  CHARACTERS  MUST  BF  RIGHT  JUSTIFIED. 

*  *  *  *  *  *  *  4c  %  *  *  *  * 

4.  COORDINATION* 

************* 

WHEN  THE  EXECUTIVE  LINK  IN  P-STAT  FINDS  USE  OF  THE  OPERATION  NAME 
*  USEP1 '  IT  TRANSFERS  CONTROL  TO  A  SUBROUTINE  NAMED  •USFR1».  USE 
OF  V.SER2*  GETS  * USER2 • ,  ETC. 

******************************************** 

5.  ACCESSING  THE  INFORMATION  ON  A  CONTROL  CARD* 

******************************************** 

ALL  ACCESS  CALLS  USE  IDENTIFIERS.  IN  ADDITION,  THERE  ARE  OTHER 
P-STAT  SUBROUTINES  WHICH  MAY  BE  USFC  IN  LINKS.  FOR  EXAMPLE  - 
THE  CONTROL  CARD  TEXT  IS  IN  THE  FIRST  PARENTHESES  - 

(NFAC  *  7)  CALL  PSI(NFAC,  N) 

N  HILL  BE  SET  TO  A  FIXED  POINT  7. 

(TOL  =  0.2)  CALL  PSF(TOL,  X) 

X  G*TS  SET  TO  0.2  . 

(LEFT  =  A)  IF  (PSUSED  (LEFT))  4C ,  60,  40 

IF  LEFT  NAS  USED  AS  AN  IDENTIFIER  ON  A  CONTROL  CARD,  THE 
ZERO  BRANCH  (60)  is  TAKEN. 

(PRINT  =  A/3)  IF  (PSMAPG  (  PRINT  ))140,  60,  140 
HERE,  PRINT  HAS  USED  AS  AN  IDENTIFIER  TWICE.  THE  PROGRAM 
MAY  HAVE  USED  THE  FIRST  FILE,  AND  NOW  NEEDS  TO  KNOW  WHETHER  TO  EXIT, 
OR  TO  LOOP  BACK  AND  DO  WHATEVER  IT  DOES  TO  THE  NEXT  FILE,  AND  SO  ON. 
MARG  STANDS  POP  MULTIPLE  ARGUMENT. 

AN  INTERNAL  TABLE  EXISTS,  SOMEWHAT  LIKE, 

IDFNTIPIFP  PTLW  NAME 

PRINT  A 

PRINT  B 

PSMAPG  SEARCHES  THE  LEFT  COLUMN,  LOOKING  »OP  AN  IDENTIFIER  WHICH 
MATCHES  T^S  OWN  ARGUMENT  (IN  THIS  CASF  PRINT).  ONE  HIT  MUST 
BE  FOUND  -  the  REFERENCE  TO  ‘"HE  FILF  ALPFADY  DONE.  THAT  USE  OF 
PRINT  IS  CHANGED  TO  ////////,  THEN  ANOTHEF  US*  OF  PR  TNT  IS  SOUGHT. 
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TP  NONE,  TAKE  THE  ♦  BRANCH.  IF  USED  AGAIN,  TAKE  THE  ZERO  BRANCH. 

♦  *  *  *  *  *  *  *  *  *  *  *  ik  *  +  * 

6.  WHAT  IS  A  FILE* 

**************** 

INPUT  OF  FILES  (OR,  POR  THAT  HATTER,  OUTPUT  OF  FILES)  CAN  BE 
DONE  '’’WO  WAYS,  BY  THE  ENTIRE  FILF,  CR  ONE  ROW  AT  A  TIHE.  THIS 
SUGGESTS  PILES  ARE  ETORFD  SOHEWHERF  BY  ROWS,  WHICH  IS  TRUF.  A  NR 
BY  NC  FILE  HAS,  A  20  WORD  HEADING  (WHATEVER  QQHEAD  WAS  SET  TO  WHEN 
IT  WAS  CREATED),  A  15  WORD  HISTORY  (  IP  FILE  *C*  WAS  CAUSED  BY  A 

LEFT-RIGHT  MERGE  OF  A  AND  B,  ITS  HISTORY  READS  '  LEFT-RIGHT  MERGE  OF  A 

AND  B  ',  AN  8  CHARACTER  NAME,  NC  8  CHARACTER  COLUMN  LABELS,  AND  THEN 
NR  ROWS.  EACH  ROW  HAS  AN  8  CHARACTER  ROW  LABEL  AND  THEN  NC  SCORES. 
EACH  LABEL  IS  STORED  IN  TWO  WORDS. 

*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 

7.  HOW  TO  GET  A  COPY  OF  A  FILE  INTO  CORE* 

************************************** 

A  LINK  MAY  BRING  AN  ENTIRE  FILF  INTO  CORE  (IP  IT  CAN  FIT  IN  CORE) . 

CALL  PSFIN  (  IN,  X,  QQRL,  QQCL,  NR,  NC,  80,  40  )  SAYS . 

FIND  TH?  FILF  ASSOCIATED  WITH  »IN=»  ON  THE  CARD,  READ  IT  INTO  X, 
DIMENSIONED  80  BY  40,  PUT  COLUMN  LABELS  INTO  QQCL,  ROW  LABELS  INTO 
QQRL,  AND  SET  NR  AND  NC  TO  ITS  STZE. 

READING  A  FILE  IN^O  CORE  DOES  NOT  CAUSE  IT  TO  VANISH  FROM 
WHEREVER  P-STAT  HAS  EFFN  STORING  IT.  ALSO,  NR  AND  NC  ARE  THF  SIZE 
OF  WHAT  GETS  TO  THE  LINK.  FILE  A  COULD  BE  200  BY  60,  BUT  IF  THE  CARD 
SAID  IN  =  A  (R31-100)  (C20,  41-55),  NR  WILL  BE  70  AND  NC  WILL  BE  16. 

IF  ONE  ROW  AT  A  TIHE  IS  DESIRED,  TWO  CALLS  ARE  INVOLVED. 

CALL  PSPLAB  (  IN,  OQCL,  NC  ) 

THIS  SUBROUTINE  GETS  THE  COLUMN  LABELS  OF  THE  FILE  ASSOCIATED 
WITH  'IN',  PUTS  THEM  INTO  QQCL  (  OR  WHFFFVE R  ON?  SAYS,  AS  LONG 
AS  IT  IS  DIMENSIONED  AT  L FAST  2  BY  NC) ,  AND  TELLS  US  THERE  ARE  NC 
COLUMNS  -  NOT  NECESSARILY  IN  THE  FILF,  PUT  COMING  INTO  THIS  LINK. 

I.F.,  COLUMN  SELECTION  .MAY  BE  OCCURRING. 

THEN,  TO  GET  \  pow,  ON?  SAYS 

I?  (  PSRROW  (  TN,  QQL,  T  )  )  140,  1UC,  500 

IF  TH ^R  F  WAS  INDFED  A  ROW  LEFT  TN  THF  FILE,  THAT  NEXT  POW  OP 
THE  FT  L?  TS  COPIED  INTO  T  (WHTCH  BF  TT£p  $2  DIMENSIONED  A*  LEAST  NC) . 
THE  LABEL  IS  PUT  INTO  QQL,  AND  WF  GO  "O  14Q,  IF  NO  MORE  ROWS  OF  THF 
*ILF  AP?  AVAILABLE,  QQL  AND  T  APE  UNTOUCHED  AND  W*  GO  TO  500. 
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************************* 

8.  HOW  TO  CREATE  A  NEW  FILE* 

*****  ******************** 

AS  IN  ACCESSING  FILES,  A  NEW  FILE  CAN  BE  CREATED  ALL  AT  ONCE,  OR 
ONE  ROW  AT  A  TIME, 

CALL  PSFOHT  (OUT, X , QQRL,  QQCL,  NR,  NC,  80,  40,  26H  *IN  CHANGED 
IN  SOME  WAY..) 

AS  WITH  PSFIN,  OOT  IS  AN  IDENTIFIER,  X  IS  DIMENSIONED  80 
BY  40  BOT  IS  ACTUALLY  NR  BY  NC,  NR  ROW  LABELS  ARE  IN  OQPL,  AND  NC 
COLUMN  LABELS  ARE  IN  QQCL.  THE  LAST . ARGUMENT,  26H  ETC,  IS  A  HOLLERITH 
FIELD  PERMITTING  A  SHORT  HISTORY  TO  EE  ASSOCIATED  WITH  THIS 
FILE.  IT  IS  NICE,  IN  THIS  FIELD,  TC  INCLUDE  THE  NAME  OF  THE  IN»UT 
FILE  (OR  PILES)  THAT  WERE  INVOLVED  IN  CREATING  THE  NEW  FILE,  BUT  THE 
NAME  IS  NOT  KNOWN  TO  THE  LINK.  HOWEVER,  THE  IDENTIFIER  OF  THE  NAME 
IS  KNOWN,  SO  THE  SUBROUTINE  SCANS  THE  HOLLERITH  FIELD  LOOKING  FOR  A 
*  FOLLOWED  BY  AN  IDENTIFIER  AND  SUBSTITUTES  THE  CURRENT  FILE  NAME 
ASSOCIATED  WITH  THE  IDENTIFIER.  THE  HOLLERITH  ARGUMENT  IS  OF  ANY 
LENGTH  (UP  TO  60  CHARACTERS)  AND  ITS  END  MUST  BE  INDICATED  BY  A  DOUBLE 
PERIOD  (INCLUDED  IN  THE  60  CHARACTERS). 

THE  ROW- AT- A -TIME  SEQUENCE  HAS  3  CALLS,  WRITE  LABFLS  (CALLED 
ONCE),  WRITE  A  ROW  (CALLED  ONCE  FOR  EACH  ROW),  AND  CLOSE  THE  FILE 
(CALLED  ONCE)  . 

CALL  PSWLAB  (  GUT,  QQCL,  NC,  26H  *IN  CHANGED  IN  SCME  WAY..  ) 

CALL  PSWROW  (  OUT,  QQL,  ) 

CALL  PSCLOS  (  OUT  ) 

*************** 

9.  ERROR  MESSAGES* 

*************** 

ANY  LINK  CAN  CALL  PSBAD  WITH  A  SINGLE  HOLLERITH  ARGUMENT, 

UP  TO  120  CHARACTERS,  WITH  THE  SAME  CONVENTIONS  AS  IN  PSWLAB  AND 
PSPOUT  (  ‘IDENTIFIER,  AND  ..). 

SUCH  A  CALL  ABORTS  THE  LINK,  PRINTS  THE  MODIFIED  MESSAGE,  AND 
GOES  BACK  TO  "’HE  EXECUTIVE  POUTINF. 

FOUR  OTHER  ERROR  ROUTINES  A»F  AVAILABLE,  PSBADA ,  PSBDAA,  PSBADI,  AND 
PSBADR.  "'HEY  PEPMTT,  RFSPECTI VEI Y,  THF  TRANSMISSION  OF  AN  ALPHABFTIC 
LABEL,  TWO  SUCH  LABPLS,  AN  INTEGER,  OR  A  PFAL  NUMBER.  FOR  FTAMFLF,  IF 
QQCL  (1 , J)  HAS  AN  UNMATCHING  LABEL, 


•  •  » 


CALL  PSBADA  (  23H  LABEL  DOFS  NOT  MATCH 


QQC  L  (1 ,  J)  ) 
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****4t**A#  t************ ******  ********************* 

10.  WHEN  DONE,  GETTING  BACK  TO  THE  EXECUTIVE  ROUTINE* 

ft******************  ****************************** 

THE  FOLLOWING  CALL  RETURN 5?  CONTROL  TO  THE  P-STAT  EXECUTIVE 
ROUTINP ,  WHICH  PROCESSES  THF  NEXT  CONTROL  CARO. 

CALL  PSNRXT 

*****************  ******************* 

11.  PEwORHA'rTING  INFORMATION  INTERNALLY* 

*****  ************  **************  ***** 

THnFt’  SPECIAL  SUPROUTINES  EXIST.. 

CALL  &SWB  PRECEDES  A  WRITE  TO  THE  INTERNAL  BUFPER.  THE 

FILE  NUMBER  USED  IN  WRITE  STATEMENTS  IS  KKOUT, 

CALL  PSRB  PRECEDES  A  READ  FROM  THE  INTERNAL  BUFPER. 

THF  INTFPNAL  WRITE  HOST  RAVE  PRECEDED  THIS. 

CALL  PSRRB  MEANS  RE-READ  BUFFER,  USED  IF  THE  INTERNAL  FILE 

IS  *EAD  MORE  THAN  ONCE.  THIS  IS  CALLED 
BEFORE  EACH  SUBSEQUENT  RE-READ. 

THIS  EXAMPLE  CONVERTS  J,  AN  INTFGEP  VARIABLE,  IN^O  ITS 
ALPHABETIC  FORM,  FOR  USE  AS  A  NAME. 

CALL  PSWP 
WRTTF  (KKOUT, 20) J 
20  FORMAT  (IX, 14) 

CALL  PSEB 

READ  (KKTN,  40)  PJ 
40  FORMAT  (IX, A4) 

(TH*  INITIAL  IX  IN  THESE  FORMATS  IS  TO  AVOID  PROBLEMS  IP 
THE  Program  IS  PUN  ON  A  GF-^5.) 
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*  B  -  MAKING  AND  USING  A  VERSION  OF  P-STAT  WITH  THE  NT'W  LINK  * 


A  CATALOGED  PROCELUPE,  ' PSTAT52U',  EXISTS  AT  PPINCETON  WHICH 

1.  CCMPILFS  A  NEW  USER- SUBROUTINE  WHICH  SHOULD  BE  NAMED  ' USER  1 ' 

(  OR  USER2,  ETC  ).  OTHER  NEW  SUBROUTINES  WHICH  USEP1  CALLS  CAN 
ALSO  BE  COMPILED  DIRECTLY  FOLLOWING  USER1. 

2.  CONSTRUCTS  AN  OVERLAY  INCLUDING  THE  NEW  USERl. 

3.  EXECUTES  THE  HJW  (  TEMPORARY  )  OVERLAY. 

FOR  EXAMPLE . . 

//  JOE  ETC. 

/♦SETUP  nNIT=23H»#ID=BBF201 

//  EXEC  PSTAT52U, TAPE- IN FORMATION- AS- BE FORE 

//FORT. SYSIN  DD  ♦ 

(  SUBROUTINE (S)  TO  BE  COMPILED,  INCLUDING  USFP1  ) 

/♦ 

//PSTAT. SYSTN  DD  * 

(  THE  P-STAT  CARDS,  INCLUDING  A  USERl  COMMAND  ) 

/* 

THE  MAKING  OF  THE  OVERLAY  REQUIRES  ACCESS  TO  SEVERAL  LIBRARIES  ON 
DISK  BBB201 .  IF  NO  TAPE  INFORMATION  IS  NFFCED,  THE  •//  EXEC'  CARD 
BECOMES  SIMPLY  ... 


// 


EXEC 


PSTAT52U 
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A  USFn  LINK  EXAMPLE . 

TAPE  0333  (  WHICH  HAS  A  DSNAMF  OP  •  BUHL  ER .  TESTD  ATA  •  FOR  ITS  FIRST 
DaTASET  )  HAS  PILE  *  A  *  ON  IT,  3C00  RCWS  BY  60  COLUMNS.  WE  WISH  TO 
CREATE  FILE  *  R  *  ,  WHICH  WILL  HAVr  ROWS  1,  4,  9,  16,  25,  36,  49,  64, 
♦TC.,  OF  FILE  ‘A*.  FILE  »B'  WILL  TFffN  BE  PRINTED  AND  SAVED. 

//  JOB .... . 

/*SPTUP  (INIT=23 1 4 , TD=t:3B201 

/♦SETUP  UNIT=TA  FE9,TD-  (0? 33 , WPI TE, K EEP, SL) 

//  EXEC  PSTAT52U,  P61  =C  333  ,  N  AMEG'N*  BtTHLER.  TEST  DAT  A* 

//PORT. SYSIN  DD  * 

SUBROUTINE  USFP1 
DIMENSION  IN  (2),  OUT  (2) 

COMMON  X(fO),  CL  (2,60),  PL  (2) 

DATA  TN  /  4 H  ,  4H  IN  /,  OUT  /  4H  ,  4H  OUT  / 

CALL  RSRLA.R  (  IN,  CL,  NC  '/ 

CALT  P5WLAB  (  OUT,  CL,  NC ,  28H  ROWS  1 ,4 , 9 , 1 6 , ETC.  OF  *IN.. 

L  =  1 
NR  =  u 

20  IF  (  PS^ROW  (  TN,  RI,  X  ))  40,  40,  100 
nr,  n°  =  NP  ♦  1 

IF  (N°-L*L)  20,  60,  5-' 

5n  CALL  PSBADI  (  17H  FRP  OF  IN  USE  PI .  . ,  L  ) 
fiR  CALL  PSWROW  (  OUT,  RL,  X  ) 

L  =  L  ♦  1 

SO  TO 

100  CALL  PSCLOS  (  OUT  ) 

CALL  ? b’ NE X T 


//PSTAT, SYSTN  PD  + 

HEAD  =  (  tbkE  A,  MAKE  B  USING  TAFE  P333  )  $ 

FT  Nn  =  A  $ 

USER  1 ,  IN  -  A,  OUT  =  R  $ 

PPX'NT  =  2  /  B  S  ?fV1'  =  P  f  END  $ 
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24.  ORGANIZATION  OP  P-STAT  DISTRIBUTION  TAPES 

SEE  SECTION  1,  'INTRODUCTION' ,  REGARDING  P-STA*  DISTRIBUTION  POLICY. 

THE  P-STAT  SYSTEM  IS  DISTRIBUTEE  ON  TAPE  IN  TWO  DIFFERENT  FORMS  - 
A  360  VERSION  AND  A  VERSION  FOR  NCN-360  COMPUTERS. 

. THE  NON-360  TAPE . 


THE  NCN-360  TAPE  IS  AT  ROD  BPI.  IT  HAS  A LOUT  23,CC0  SOURCE  CARDS, 

AN  ENDFILE,  ABOUT  4600  MANUAL  CARES,  AN  ENDFILE,  ABOUT  900  PRIMER 
CARDS,  AN  ENDFILE,  ABOUT  400  CARDS  DESCRIBING  THE  OVERLAY  STRUCTURE, 

AND  AN  ENDFILE.  THESE  ARE  UNBLOCKED  80  CHARACTER  RECORDS.  THE  TAPE 
IS  2400  FEET,  7  TRACK,  AND  IS  WRITTEN  IN  EVEN  PARITY. 

A  NON- 360  INSTALLATION  WOULD  NEED  TO  . 

1  -  REWRITE  'PSALCO'  AND  'PSNVAI'.  NOTE  THE  COMMENTS  IN  PSNVAL. 

PSALCO  IS  INVOLVED  WITH  CCLIATI NG  SEQUENCES,  PSNVAL  DOES  A 
TABLE  LOOKUP.  BOTH  ARE  IN  FORTRAN,  BUT  TOTALLY  360  HARDWARE 
DEPENDENT  FORTRAN. 

2  -  CHANGE  ' PSINIT'  SO  THAT  KKDISC  *  2,  TURNING  OFF  USE  OF 

LINKLIST  STORAGE.  ALSO  CHANGE  THE  ' VBAR*  DATA  STATEMENT. 

3  -  SUBSTITUTE  DUMMY  ROUTINES  FOR  'PSRDDX'  AND  'PSWRDX'. 

LINKLIST  MAY  Bw  I MPLEMENTABLF  IN  SOME  WAY  ON  OTHER  COMPUTERS. 
SEE  THE  SECTION  •  SYSTEM  USE  OF  STORAGE'.  IF  NOT,  THE  ABOVE 
POINTS  2  AND  3  SHOULD  BE  DONE. 

4  -  PROVIDE  AN  INT*PNAL  FORMATTED  WRITE-THEN- READ  FACILITY.  SFF 

POINT  11,  'REFORMATTING  INFORMATION  INTERNALLY*  TN  THE  SECTION 
NAMED  'ADDING  USER-WRITTEN  TEMPORARY  LINKS  TO  THE  SYSTEM'. 

ON  THF  360,  THE  INCLUSION  OF  SUBROUTINE  *  TAPE99'  ACCOMPLISHES 
INTERNAL  FORMATTING. 

5  -  CHECK  THE  OVERLAY  STRUCTURE.  THE  SUPPLIED  DECK  RUNS  ON  A 

360.  HOWEVER,  FACH  OPERATING  SYSTEM  SEEMS  TO  HAVE  DIFFERENT 
RULES  FOR  OVERLAYS,  AND  THIS  DECK  SHOULD  BE  EXAMINED  WITH  CARE. 
SOME  CODE  (  IN  PSMAIN,  FOP  FXAMPIE  )  MAY  NFED  TO  BE  CHANGED 
IF  THF  WAY  OF  CALLING  A  ITNK  TS  NOT  HOW  THF  3SP  DOES  IT 
f  IMPLICITLY,  I.E.,  AS  IF  CALLING  A  SUBROUTINE  ). 

6  -  SUBSTITUTE  A  DUMMY  ROUTINE  FOR  'OSIRIS'.  THIS  PROGRAM,  USFD  BY 

•ME  P-STAT  ("IRE3ATION  'OSIRIS. P*  ,  INTERFACES  TO  THE  OSIRIS  SYSTEM 
WHICH  ONLY  FUNS  ON  360  *S.  TT  MUST  ET-'  DUMMIED  3ECAUSP  TT  CALLS 
YET  OTH rF  ROUTINES  IN  THE  P STAT52 . ISPL'B  LIBRARY. 

7  -  VO^E  THF  USE,  IN  PSRDC,  OF  *£ND='  TN  A  PEAD  STATEMENT.  THIS  MAY 

VO?  BE  ALLOWFO  IN  SOME  FOR^RANS. 
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THE  360  TApE 


THE  360  P-STAT  DISTRIBUTION  TAVF  IS  A  9  TRACE ,  2400  FOOT,  800 
DENSITY  TAPE  WRITTEN  WITH  STANDARD  LABELS  (  I.E.,  USING  SL  ).  THE 
VOLUME  ID  IS  PS5205  (  FOR  P-STAT,  VERSION  52.5  ).  THESE  PILES  WERE 
PRODUCED  USING  FORTRAN  H  (OPT2)  AND  O.S.  VERSION  18.  THE  OVERLAYS 
INCLUDE  THE  EXTENDED  ERROR  MESSAGE  FEATURE. 

GENERALLY,  UPON  RECEIVING  A  TAPE,  AN  INSTALLATION  SHOULD  BEGIN  BY 
PRINTING  ANt  PUNCHING  FILF  5,  SFE  BFLOW. 

THERE  A  RF  15  FILES,  AS  FOLLOWS . 

(  NOTE  -  the  DSNAMF  OF  THE  FILE  IS  IN  PRENS  ) 

1  -  (PSTATS2. MANUAL)  THE  PSTAT  MANUAL,  ABOUT  4600  CARDS. 

THIS  IS  THE  INPUT  TO  THE  MANUAL  PROGRAM. 

2  -  (°STAT52.Ir MANUAL)  THE  P-STAT  OPERATION . 

MANUAL,  TAPE  =91  $ 

PUTS  PRINT  LINE  IMAGES  INTO  DATA  SET  91 
IN  ADDITION  TO  JUST  PRINTING  IT.  THIS  IS 
THAT  DATA  SET,  AEOUT  5000  132-CHARACTER 
RECORDS.  IEBGENER  CAN  THEN  BF  USED  TO 
PRINT  COPIES  CHEAPLY. 

3  -  (PSTAT52. PRIMER)  THE  PRIMER,  ABOUT  90C  CARDS. 

THIS  IS  THE  INPUT  TO  THE  PRIMER  PROGRAM. 

4  -  ( PS TAT5 2. IEPPTMER)  THIS  FILF,  CREATED  BY  PRIM  PR ,TAPE=91$ 

CONTAINS  ABOUT  600  132-CHARACTEF  RECORDS. 

TT  CAN  EE  PRINTED  USING  IEBGENFR . 

5  -  (PSTAT52. DECKS)  VARIOUS  USEFUL  DECKS,  SEE  BELOW. 

ABOUT  1000  CARDS. 

6  -  (PSTAT52. AFSFM)  tW0  ASSEMBLY  LANGUAGE  DECKS,  Tftpwgg  AND 

AN  ASSEMBLY  LANGUAGE  VERSION  (  VERY  FAST  ) 
0*  PSNVAL.  T A D E 9 9  IS  A  ROUTINE  THAT 
CAUSES  C.S.  TO  "SPA-T’  FILE  99  AS  AN  INTERNAL 
phpp^F,  dwF  MINTING  EAST  RPPORMATTING  OF 
DATA  WITHIN  FORTRAN.  ABOUT  10r  CARDS. 

7  -  (PS?AT5*>. CONTROLS)  A  C A. r D  I*A0p  Eli  E  OF  THE  OVERLAY  CONTROLS. 

TUTS  PEFTNES  THE  OVERLAY  STRUCTURE.  IT  IS 
USED  py  •’•HE  USER  LINK  CATALOGED  PROCEDURE 
PST ATC2  U .  TT  IS  NPPPED  TO  MAKE  ANY  P-STAT 
OVFPLAY.  A  BOUT  400  CARDS. 

P  -  (PSTA  '"c  7  .OVP  PLAY)  "’HE  VERSION  S„>.  5  OVERLAY.  THIS  CAN  BP 

MOVED  ”rOM  TUP  TAPE  TO  A  DISK  AND  FXECUTED . 
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A  SAMPLE  DECK  WHICH  USES  IEHMCVF  TO  DO  THIS 
IS  IN  FILE  5  (  PSTAT52. DECKS  ).  THE 
MAXIMUM  SIZF  OP  THE  OVERLAY  BY  ITSELF  IS 
CURRENTLY  226K  BYTES.  AN  EXECUTION  REGION 
OP  250K  (SPACE  POP  BUFFERS,  ETC.)  - HOULB 
BE  AMPLE. 

P  -  (PST AT52.0VLA  RGE)  THE  VERSION  52.5  LARGE  (  600K  )  OVERLAY. 

10  -  (PSTAT52.LIB)  THE  SOUPCF,  COMPILFD  AND  LINK-EDITED  INTO  A 

PARTITIONED  DATA  SET,  I.E.,  A  LIBRARY. 

11  -  (PSTAT52.ASMLIB)  THE  COMPILED  AND  LINK-EDITED  FORM  OF  PILE  6. 

12  -  (PSTAT52. ISRLIB)  THOSE  PAPTS  OF  THE  MICHIGAN  OSIRIS  LIBRARY 

N EFDED  TO  CONSTRUCT  AN  OVERLAY  WITH  OSIRIS 
(  OSIRIS. P  )  IN  IT. 

13  -  (PSTA T52 . LA FGELT B)  A  L IBPA  °Y  OF  THE  VERSIONS  OF  THOSp 

PROGRAMS  WHICH  ARE  DIFFERENT  IN  THF  LAPGE 
OVERLAY. 

14  -  (PSTAT52.  SOURCE)  THE  SOURCE  CARDS,  ABOUT  23,00. 

15  -  (PSTAT52.LSOURCE)  the  SCURCF  CARDS  OF  THF  PROGRAMS  USFD  IN 

THE  LARGE  OVERLAY.  ABOUT  2600  CARDS. 

THESE  ARE  DUPLICATES  OF  26  Op  THE  DECKS 
IN  FILE  14,  EXCEPT  FOR  LARGER  DIMENSIONING. 

THE  FOI LOWING  DCB'S  DESCRIBE  THF  TAPE  ORGANIZATION.  THF  DISK 
ORGANIZATION  IS  IN  THE  SAMPLE  DECKS  IN  FILE  5. 

DC3= (RFCFM=FB,LFECL=80,BLKSTZE=800)  IS  USED  FOP  THE  LOAD  MODUL* 
LIBRARIES  AND  T HF  OVERLAYS  (  FILES  P-13  ). 

DCB=  ( FECFM-FB,  LRECL=  3r  , BLKS IZE=  3”>0(  )  IS  USED  IN  THE  CARD  FILES 
(  FILES  1 ,  3,  5-7,  14-15  ) . 

DCF!=(RECFM=FB,LRpCL=132,RLKST7.F=13?P)  IS  USFD  FOR  THE  PRINT  IMAGE 
FILES  (  2  AND  4  ) . 

************************************** 

*  D PSCF T n7I ON  OF  the  DECKS  IN  ElLr  5  * 

************ ************************** 

1  -  MOVE  A  PARTITIONED  DATA  Rf-  (  OVERLAY  0?  LIBRARY  )  FROM  TAPE 

TO  DISK. 

2  -  MOVE  A  CARP  I"  A  0  E  FIL*  (  A  SRQUENTI  AT  !'A'T'A  SET  )  FROM  TAPE  TO 

DISK. 

3  -  T.I Kp  ?,  BUT  USA BL^  ”0?  THE  FRIO  IT  Np  FILE'S  (  PILES  2 

AND  4  ) . 

4  -  A  T'l 2 3 4S'r  DECK,  WITH  J03LTB,  TC  SFF  THAT  THP  OVERLAY  WORKS. 

5-4  C A T A L 0 G P r'  ™ncpPUp ES .  .  .  PS^A"^?  -  USU  IT’!!F  25(K  OVERLAY  (  or 

'T’Hp  6 0 0 K  OVERLAY  )  . 
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PSTAT 52U  -  COMPILE  A  USER  LINK,  MAKE 
AN  OVERLAY,  EXECUTE  IT. 
PSTAT52P  -  PRINT  THE  PRIMER  PROM  ITS 
PRINT  IMAGE  PILE. 

PSTAT52M  -  PRINT  THE  MANUAL  FROM  ITS 
PRINT  IMAGE  PILP 

6  -  COMPILE  A  SOURCF  FILE  AND  MAKE  A  LIBRARY. 

7  -  COMPILE  A  SINGLF  SOURCE  DECK  AND  UPDATE  THE  LIBRARY. 

8  -  MAK*  THE  250K  OVERLAY. 

9  -  MAKE  THE  600K  OVERLAY. 
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25.  A  LARGER  360  VERSION 

PRINCETON  HAS  A  360/91  WITH  A  2  MILLION  BYTE  MEMORY.  AND  IT  IS 
POSSIBLE  TO  RON  JOBS  WITH  A  LARGE  PFGION  SIZE.  A  SEPARATE  OVFPLAY 
EXISTS  WHICH  PERMITS  LARGER  FACTOR  ANALYSES.  ETC.  (  SEE  BELOW  ).  IT 
NEEDS  A  REGION  SIZE  OE  600K  BYTES. 

THE  FOLLOWING  OPERATIONS  MAKE  USE  OE  THF  INCREASED  CORE  ... 


BISERIAL 

15,000  ELEMENTS 

BPPINT 

300  BY  300 

CLEANCOR 

300  BY  300 

F.COEF 

300  VARIABLES,  100  FACTORS 

GROOPC 

250  VARIABLES,  75  FACTORS 

INTCDS 

300  VARIABLES 

INTMDA 

15,090  ELEMENTS 

TNTMDS 

150  VARIABLES 

INVERT 

200  BY  200 

TTEACT 

250  VARIABLES 

MATCH 

100,000  ELEMENTS 

MULTIPLY 

POST  CAN  BE  300  BY  30P 

NEWFAC 

250  VARIABT  "’S,  75  FACTORS 

PPOMAX 

250  VARIABLES,  75  FACTORS 

ROTATE 

300  VARIABLES,  ICO  FACTORS 

EMERGE 

300  BY  300 

SSORT 

100,000  ELEMENTS 

TCOR 

150  VARIABLES 

TFT 

300  VARIABLES 

TTEST 

300  VARIABLES 

AT  PRINCETON, 

A  DISK  MUST  BE  MOUNTFD  AND  THE  RFGULAP  PROCEDURE 

IS  USED,  ADDING  ONE  FIELD.. 

/♦SE'T'UP  tjNIT  =  2314,ID=BBB201 
//  EXEC  PSTAT52,STZE=LADGF 

THIS  MODIFICATION  INVOKES  THF  LARGE  (60OK)  VERSION  INSTEAD 
OF  THE  REGULAP  ONF.  ANY  TAPE  REFERENCES  WO  OLD  FOLLOW  (OR  PRECEDE), 

AS... 

//  FXWC  PSTAT52,SIZE=LAPGE, F61= 1 277 , N AMF61= ' TEST. DAT A • 

IT  IS  NOT  POSSIBLE,  USING  JUST  THE  CURRENT  CATALOGED  PROCEDURES, 
TO  ADD  A  USER  LINK  TO  .A  LAPGE  TEMPORARY  OVERLAY. 
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26.  SYSTEM  USE  OP  STORAGE 

THF  P-STA*  SYSTFM  WORKS  WITH  P-STAT  PILES,  AND  THESE  PILES  MOST  BE 
MAINTAINED  (I.E.,  ORGANIZFD,  LOCATED)  IN  SOME  MANNER. 

THFPF  ARE,  IN  FACT,  POUF  LFVFL5. 

1  -  A  LINK-LIST  STORAGE  APFA  IN  COPE,  OF  A  DEFINE  FILE  (360  FORTRAN 

DIRECT  ACCESS  I/O)  STRUCTURE  ON  A  DISK,  OR  SOME  OP  BOTH. 

2  -  SCRATCH  'TAPES* ,  EACH  HOLDING  A  SINGLE  P-STAT  FILE. 

ON  A  360,  THESE  ARE  USUALLY  DEPINED  BY  JCL  TO  BE  ON  DISK. 

• ASSIGN/ATTACH'  TAPES  ARE  A  SPECIAL  CASE  OP  THIS  LEVEL. 

3  -  A  BULK  mA PE ,  SOMETIMES  CALLED  A  TEMPORARY  DATA  TAPE,  OR 

' TDT* .  THIS  HAS  MANY  P-STAT  FILFS  CN  TT,  ONE  AFTER  ANOTHER. 

THIS  IS  ALSO  USUALLY  ON  DISK. 

«  -  A  USER'S  'SAVE'  TAPE,  OR  PERMANENT  DATA  TAPE. 

FILES  IN  THE  FOURTH  LEVEL,  A  USFR'S  SAVE  TAPE,  ARE  NOT 
ACCESSABL F  TO  THE  P-STA*  SYSTEM  WITHOUT  THE  USE  OF  THE  'FIND' 

OPERATION.  THIS  PLACES  COPIES  OE  THE  DESIGNATED  FILES  IN  ONE  OF  THE 
FIRST  THREE  LEVELS.  THUS,  P-STAT  INTEPNALLY  HAS  THREE  LEVELS  WITH 
WHICH  TO  WORK. 

P-STAT  WILL  ALWAYS  TRY  TO  PLACE  A  ''IL!  IN  THE  FIRST  LEVFL 
(LINK-LIST).  THIS  IS  AN  OPTIONAL  LEVEL.  THE  SYSTFM  IS 
READY  TO  HS*  IT.  A  SINGLE  FLAG  (  KKDISC  =  1,  WHEN  COUPLING 
SUBROUTINE  PSTNIT  )  INDICATES  THF  AVAILABILITY  OF  THIS  TYPE  OF  STOFAGE. 

I*  NOT  THERE,  OP  *ULL,  A  N*W  FI IE  WILL  BE  PLACED  ON  A 
SCRATCH  TAPE.  IN  VFFSTON  52  THFPF  ARE  9  OF  THESE.  THERE  MAY  OF 
COURSE  ALREADY  P*  A  FILE  ON  EACH  CF  THF SF,  AND  SOMF  MAY  BE  ACTIVE 
(IN  USE  PT  THE  CUPREN’7’  P-STAT  OPFFATTON)  AT  THIS  MOMENT. 

SOME  MUST  PE  DORMANT,  HOWEVER,  BECAUSE  ONLY  FOUR  FILES  CAN  BE 
SI  Mill  T  A  NEOUSL  Y  IN  HS*.  TH*  SMALLEST  DORMANT  FILE  IS  COPIED  ON  THE 
END  OP  THE  "ULK  TAPE  (LEVFL  THREE)  AND  THE  NEW  FILE  GCES  ON  THE 
NOW  AVAILABLE  SC^A^CH 

US*  OF  THE  BULK  TAPE  (  LEVFL  3  )  IS  HORRIBLY  I NEFFICI FN17* ,  IP 
LF VFL  1  IS  UNAVAILABLE,  9  FILES  EILI.  LFVFL  2  AND  LFVEL  3  STARTS 
BEING  US F D  WTTH  1 o  op  NOR  F  FIL*S. 

W H^N  A  FTL*  IN  LF V* L  1  IS  NFFDFD,  ^OM*  PROGRAMS  ARE  ABLE  TO  TELL 
P-STA’7'  T  NT*F  NALL  Y  "HAT  THF  *IIF  CAN  SAFELY  BE  REAP  DIRECTLY  FROM  THE 
TDm.  ""HIS  IS  NOT  "CO  BA  o  FXC*?T  FOP  THE  TIME  SPENT  GOING  THROUGH  THE 
’’’A  Pc  TO  LOCA.ow  T  H  *  FILE.  ^HTS  COBLE  BE  FITHER  HEADING  OR  BACKSPACING, 
WHICH^V**  WILT.  ^  OHICKEP.  IN  OTH rc  CASFS,  A  P-STAT  LINK  REQUIRES  THE 
*TI,F  ’’■O  °E  IN  L  *  V  *  L  ?.  0»:r  CANNOT  FFAP  ALTEPNATF  ROWS  PROM  TWO  FILFS, 

BO^H  ON  "'HE  SAME  '7,»PE.  THF**  MUS"  THEN  B F  COPYING  FROM  LFVEL  3  TO 

LEV  rT  2.  Tr  I r  V  *L  2  T  G  ®r»LL  ,  A  COPYING  0®  A  FORMANT  FILE  EROM  LEVEL  2 

•"O  L*VEL  ■>  PRSCLD*S  TH  ■  LFVEI  3  TC  I^VEL  2  COPY.  ALL  THIS  TAKES  TIME. 
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' PURGE*  AND  ‘RETAIN*  APE  AVAILABLE  TO  C  EAR  OUT  OBSOLETE  PILES  FROM 
THE  SYSTEM.  IF  A  PURGED  FILE  IS  ALREADY  ON  THE  BULK  TAPE,  THERE  IS  NO 
GAIN  IN  STORAGE  USE,  BUT  IF  IT  WERE  TN  LEVEL  1  OR  2,  THERE  COULD 
BE  CONSIDERABLE  GAIN.  VERSION  52  HAS  TABLE  SPACE  FOR  INFORMATION 
CONCERNING  70  FILES.  PURGING  ALSO  HELPS  TO  STAY  BELOW  THIS  TOTAL. 

• ASSIGN/ATTACH'  FILES  ARE  EFFICIENT  FOR  SEVERAL  REASONS  ... 

1  -  THEY  ARE  IMMEDIATELY  USABLE. 

IF  A  PILE  IS  'FOUND'  ON  A  SAVE  TAPE,  IT  IS  COPIED 
INTO  LEVEL  1  OR  2  AS  PART  OF  THF  'FIND'  STFP.  FOR  LARGF 
FILES  THIS  CAN  TAKE  TIME. 

ALSO,  THE  SEARCH  OF  THF  ' SA  VF/FIND*  TAPE  TAKES  TIME.  A  PILE 
ON  AN  ATTACH  TAPE  IS  IMMEDIATELY  USABLE  FROM  THAT  TAPE. 

2  -  THE  ATTACH  TAPE  IS  TREATED  WITHIN  P-STAT  AS  A  SPECIAL  TYPE  OP 

LEVFL  TWO  TAPE,  BUT  DOFS  NOT  TIP  UP  THE  ORIGINAL  9  SCRATCH 
TAPES.  IN  OTHER  WORDS,  ITS  USE  DOES  NOT  MAKE  OTHER 
ASPECTS  OF  THE  SYSTEM  LESS  EFFICIENT. 

AN  ATTACH  TAPE  IS  ORGANIZED  EXACTLY  LIKE  A  CNF  FILE  SAVE  TAP? 

(I.F.,  A  PDT  WITH  ONLY  ONE  FILE  SAVED  ON  IT).  A  TAPE 
GENEPA^ED  BY  ASSIGN  COULD  BE  USFD  IN  A  LATER  RUN  AS  A  SAVE  TAPE. 

ALSO,  IF  A  SAVE  TAPF  HAS  MANY  FILES  ON  IT  AND  ONLY  THF  FIRST  IS  TO  Bw 
USED,  THAT  TAPE  COULD  BE  USFD  IN  A  GIVFN  RUN  AS  AN  ATTACHED  TAPE. 

OP  COURSE,  THESE  *  TAPES'  COULD  ACTUALLY  ON  A  DISK  TN  A 
USER'S  PERMANENT  STORAGE  AREA,  BUT  THEY  WILL  USUALLY  BE  TAPES. 

ON  A  760  ,  THERE  APE  PERHAPS  7  WAYS  OF  USING  LINKLIST  STORAGE.  THIS 
STORAGE  USES  BLOCKS  OF  STORAGE,  EACH  465  WORDS  LONG.  THESE  BLOCKS  ARE 
NUMBERED  1  THROUGH  V,  WHERE  N  IS  THE  NUMBER  OF  SUCH  BLOCKS  THAT  WAS 
SPECIFIED  IN  SUBROUTINE  PSINIT.  P-STAT  KNOWS  THE  LOCATION  OF  THE  FIRST 
SUCH  BLOCK  OF  A  FILE,  AND  THAT  BLOCK  HAS  WITHIN  IT  THr  ADDPFSS  OF  THE 
NFXT  BLOCK.  ASSUME  FILE  »A'  USES  BLOCK  1,  • B*  USES  BLOCKS  2  AND  1, 

THEN  IS  PURGED,  AND  FILE  'C*  IS  CRFATFD,  NEEDING  7  BLOCKS.  IT  WILL 

GFT  1,  4,  AND  5.  WHEN  A  FILE,  BEING  PLACED  TN  THESE  BLOCKS,  NEEDS 
BLOCK  N*1,  THE  SYSTEM  FINDS  THE  LAPGFST  FILE  TN  TH®  LINKLIST  AREA, 
INCLUDING  THAT  PA Pm  OF  THF  CURRENT  FILE  ALREADY  INTO  BLOCKS,  AND  MOVES 
IT  *0  LEVFL  2. 

TH®  BEST  ALLOCATION  (  WITHOUT  CONSIDERING  FREQUENCY  OF  USE  )  IS 
SHORT  ETL®S  TN  LEVEL  1,  LONG  ®II.®S  IN  LEVFL  2,  AND  SHORT  FILES  TN  LEVEL 
3.  I®,  WHEN  TRYING  to  GO  FROM  LEVEL  1  to  LEVEL  2,  LEVFL  2  IS  ®ULL,  mH® 

SHORTEST  FILE  NOT  IN  USE  DURING  THE  CURRENT  STEP  IS  MOV FD  tq  LEVEL  7, 
PERMITTING  A  1  tq  ?  MOVE,  EINALIY  PERMITTING  OUTPUT  o®  THE  CURPFNT 

PILE  TO  CONTTNU®, 

THREE  WAYS  TO  0® GANTZ®  IINKLTST  STOP AGr 

ONE  WAY  IS  LABELLED  COMMON  AF®AS,  DIMENSIONED  46*  BY  N.  THIS,  OF 
COUPS®,  IS  VpP Y  EFFICIENT,  BU^  uses  *  JOT  HE  CORF.  A NOT HE®  WAY 
INVOLVES  7*0  DI  PEC'"  ACCESS  T/0.  FMPROiJttije  •PSW’DX'  WOULD  HAVE  ft 
•DEFINE  FTL®'  STATFMEV",  t«IS  ST  8  T  E MrNT  CAUSES  or/7f*>  to  INTtirlIZF 
THE  BLOCKS  ON  A.  So^A^Cil  hTSK.  XF  pyocK*  (  ABOUT  15  CYLINDERS  ) 
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ARE  ASKED  FOR,  IT  TAKES  SFVEEAL  MINUTES.  THE  • DD  *  CARD  IN  THE 
CATALOGED  PROCEDURE  WOULD  ASK  FOR  NFW  SCPATCH  SPACE  TO  BE  ALLOCATED 
EACH  RUN. 

A  THIRD  WAY  WOULD  INVOLVE  WRITING  SOME  360  ASSEMBLY  LANGUAGE 
ROUTINES  TO  GAIN  THE  FFFECT  OF  'DEFINE  FILE'  TYPE  USAGE  WITHOUT  THE 
INITIALIZATION  TIME.  THIS  IS  BFING  CONSIDERED. 

VERSION  52  EQUIVOCATES  -  IT  USES  100  SCRATCH  TRACKS,  AND  INITIALIZES 
THEM  A*  THE  START  OF  EACH  P-STAT  RUN.  THE  SPECIFICATION  OP  100  IS 
FOUND  IN  HE  CATALOGED  PROCFDURF  (  *HE  DD  CARD  FOR  FILE  06  )  AND  TN 
SUBROUTINE  PSWRDY.  NOTE  -  USE  OF  THE  STATEMENT  'USEDTSK  -  0  $'  AT 
THE  START  OF  A  P-STAT  RUN  TUFNS  OFF  LINKLIST  USE  OF  THE  DISK  ENTIRELY. 
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2ft.  A  LIFT  OF  TH”  LEGAL  IDENTIFIERS  EOF  FACH  OPERATION 

'’’HIS  DOFS  NO'”  INCLUDE  OPERATIONS  WHERE  THE  ONLY  IDENTIFIER  IS 
*r HF  OPERATION  NAME  ITSELF,  SUCH  AS  HEAD  OR  BPRINT, 

NOTE  -  A  *  BEFORE  THE  OPERATION  WANE  IS  A  REMINDER  THAT  A  *END 
CARD  MUST  FOLLOW  THE  LAST  DATA  CARD  FOP  THAT  OPERATION. 
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